home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 69.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 55%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 44%
| TrID
| Summation Document Image Information Load File
| default (weak)
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 33 3a 35 37 3a 33 | 35 20 31 39 39 35 0a 3b | 13:57:3|5 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 65 64 | 65 62 75 67 2f 65 64 65 |/lisp/ed|ebug/ede|
|00000090| 62 75 67 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |bug.el.;|;; emacs|
|000000a0| 20 76 65 72 73 69 6f 6e | 20 31 39 2e 31 33 20 58 | version| 19.13 X|
|000000b0| 45 6d 61 63 73 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |Emacs Lu|cid..;;;|
|000000c0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000d0| 6e 20 32 2e 32 35 3b 20 | 31 2d 53 65 70 2d 39 34 |n 2.25; |1-Sep-94|
|000000e0| 2e 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |..;;; op|timizati|
|000000f0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|00000100| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|00000110| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|00000120| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000130| 20 31 38 2e 0a 0a 28 69 | 66 20 28 61 6e 64 20 28 | 18...(i|f (and (|
|00000140| 62 6f 75 6e 64 70 20 27 | 65 6d 61 63 73 2d 76 65 |boundp '|emacs-ve|
|00000150| 72 73 69 6f 6e 29 0a 09 | 20 28 6f 72 20 28 61 6e |rsion)..| (or (an|
|00000160| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 70 6f 63 68 |d (bound|p 'epoch|
|00000170| 3a 3a 76 65 72 73 69 6f | 6e 29 20 65 70 6f 63 68 |::versio|n) epoch|
|00000180| 3a 3a 76 65 72 73 69 6f | 6e 29 0a 09 20 20 20 20 |::versio|n).. |
|00000190| 20 28 73 74 72 69 6e 67 | 2d 6c 65 73 73 70 20 65 | (string|-lessp e|
|000001a0| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 22 31 39 |macs-ver|sion "19|
|000001b0| 22 29 29 29 0a 20 20 20 | 20 28 65 72 72 6f 72 20 |"))). | (error |
|000001c0| 22 54 68 69 73 20 66 69 | 6c 65 20 77 61 73 20 63 |"This fi|le was c|
|000001d0| 6f 6d 70 69 6c 65 64 20 | 66 6f 72 20 45 6d 61 63 |ompiled |for Emac|
|000001e0| 73 20 31 39 2e 22 29 29 | 0a 0a 28 62 79 74 65 2d |s 19."))|..(byte-|
|000001f0| 63 6f 64 65 20 22 c0 c1 | 21 88 c2 c3 21 88 c4 15 |code "..|!...!...|
|00000200| c6 16 07 c0 87 22 20 5b | 70 72 6f 76 69 64 65 20 |....." [|provide |
|00000210| 65 64 65 62 75 67 20 72 | 65 71 75 69 72 65 20 62 |edebug r|equire b|
|00000220| 61 63 6b 71 75 6f 74 65 | 20 22 33 2e 31 22 20 65 |ackquote| "3.1" e|
|00000230| 64 65 62 75 67 2d 76 65 | 72 73 69 6f 6e 20 22 6c |debug-ve|rsion "l|
|00000240| 69 62 65 72 74 65 40 63 | 73 2e 75 69 75 63 2e 65 |iberte@c|s.uiuc.e|
|00000250| 64 75 22 20 65 64 65 62 | 75 67 2d 6d 61 69 6e 74 |du" edeb|ug-maint|
|00000260| 61 69 6e 65 72 2d 61 64 | 64 72 65 73 73 5d 20 32 |ainer-ad|dress] 2|
|00000270| 29 0a 28 66 73 65 74 20 | 27 65 64 65 62 75 67 2d |).(fset |'edebug-|
|00000280| 73 75 62 6d 69 74 2d 62 | 75 67 2d 72 65 70 6f 72 |submit-b|ug-repor|
|00000290| 74 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 88 c2 c3 21 |t #[nil |"..!...!|
|000002a0| ad 97 c4 0d c6 0e 07 50 | c8 c9 ca cb cc cd ce cf |.......P|........|
|000002b0| d0 d1 d2 d3 d4 d5 af 0e | 23 87 22 20 5b 72 65 71 |........|#." [req|
|000002c0| 75 69 72 65 20 72 65 70 | 6f 72 74 65 72 20 79 2d |uire rep|orter y-|
|000002d0| 6f 72 2d 6e 2d 70 20 22 | 44 6f 20 79 6f 75 20 72 |or-n-p "|Do you r|
|000002e0| 65 61 6c 6c 79 20 77 61 | 6e 74 20 74 6f 20 73 75 |eally wa|nt to su|
|000002f0| 62 6d 69 74 20 61 20 72 | 65 70 6f 72 74 20 6f 6e |bmit a r|eport on|
|00000300| 20 65 64 65 62 75 67 3f | 20 22 20 72 65 70 6f 72 | edebug?| " repor|
|00000310| 74 65 72 2d 73 75 62 6d | 69 74 2d 62 75 67 2d 72 |ter-subm|it-bug-r|
|00000320| 65 70 6f 72 74 20 65 64 | 65 62 75 67 2d 6d 61 69 |eport ed|ebug-mai|
|00000330| 6e 74 61 69 6e 65 72 2d | 61 64 64 72 65 73 73 20 |ntainer-|address |
|00000340| 22 65 64 65 62 75 67 2e | 65 6c 20 22 20 65 64 65 |"edebug.|el " ede|
|00000350| 62 75 67 2d 76 65 72 73 | 69 6f 6e 20 65 64 65 62 |bug-vers|ion edeb|
|00000360| 75 67 2d 73 65 74 75 70 | 2d 68 6f 6f 6b 20 65 64 |ug-setup|-hook ed|
|00000370| 65 62 75 67 2d 61 6c 6c | 2d 64 65 66 73 20 65 64 |ebug-all|-defs ed|
|00000380| 65 62 75 67 2d 61 6c 6c | 2d 66 6f 72 6d 73 20 65 |ebug-all|-forms e|
|00000390| 64 65 62 75 67 2d 65 76 | 61 6c 2d 6d 61 63 72 6f |debug-ev|al-macro|
|000003a0| 2d 61 72 67 73 20 65 64 | 65 62 75 67 2d 73 74 6f |-args ed|ebug-sto|
|000003b0| 70 2d 62 65 66 6f 72 65 | 2d 73 79 6d 62 6f 6c 73 |p-before|-symbols|
|000003c0| 20 65 64 65 62 75 67 2d | 73 61 76 65 2d 77 69 6e | edebug-|save-win|
|000003d0| 64 6f 77 73 20 65 64 65 | 62 75 67 2d 73 61 76 65 |dows ede|bug-save|
|000003e0| 2d 64 69 73 70 6c 61 79 | 65 64 2d 62 75 66 66 65 |-display|ed-buffe|
|000003f0| 72 2d 70 6f 69 6e 74 73 | 20 65 64 65 62 75 67 2d |r-points| edebug-|
|00000400| 69 6e 69 74 69 61 6c 2d | 6d 6f 64 65 20 65 64 65 |initial-|mode ede|
|00000410| 62 75 67 2d 74 72 61 63 | 65 20 65 64 65 62 75 67 |bug-trac|e edebug|
|00000420| 2d 74 65 73 74 2d 63 6f | 76 65 72 61 67 65 20 65 |-test-co|verage e|
|00000430| 64 65 62 75 67 2d 63 6f | 6e 74 69 6e 75 65 2d 6b |debug-co|ntinue-k|
|00000440| 62 64 2d 6d 61 63 72 6f | 20 65 64 65 62 75 67 2d |bd-macro| edebug-|
|00000450| 70 72 69 6e 74 2d 6c 65 | 6e 67 74 68 20 65 64 65 |print-le|ngth ede|
|00000460| 62 75 67 2d 70 72 69 6e | 74 2d 6c 65 76 65 6c 20 |bug-prin|t-level |
|00000470| 65 64 65 62 75 67 2d 70 | 72 69 6e 74 2d 63 69 72 |edebug-p|rint-cir|
|00000480| 63 6c 65 5d 20 31 37 20 | 22 5c 0a 53 75 62 6d 69 |cle] 17 |"\.Submi|
|00000490| 74 20 76 69 61 20 6d 61 | 69 6c 20 61 20 62 75 67 |t via ma|il a bug|
|000004a0| 20 72 65 70 6f 72 74 20 | 6f 6e 20 65 64 65 62 75 | report |on edebu|
|000004b0| 67 22 20 6e 69 6c 5d 29 | 0a 28 64 65 66 76 61 72 |g" nil])|.(defvar|
|000004c0| 20 65 64 65 62 75 67 2d | 73 65 74 75 70 2d 68 6f | edebug-|setup-ho|
|000004d0| 6f 6b 20 6e 69 6c 20 22 | 5c 0a 2a 46 75 6e 63 74 |ok nil "|\.*Funct|
|000004e0| 69 6f 6e 73 20 74 6f 20 | 63 61 6c 6c 20 62 65 66 |ions to |call bef|
|000004f0| 6f 72 65 20 65 64 65 62 | 75 67 20 69 73 20 75 73 |ore edeb|ug is us|
|00000500| 65 64 2e 0a 49 74 73 20 | 76 61 6c 75 65 20 69 73 |ed..Its |value is|
|00000510| 20 72 65 73 65 74 20 74 | 6f 20 6e 69 6c 20 61 66 | reset t|o nil af|
|00000520| 74 65 72 20 62 65 69 6e | 67 20 75 73 65 64 2c 20 |ter bein|g used, |
|00000530| 73 6f 20 65 61 63 68 20 | 74 69 6d 65 20 69 74 20 |so each |time it |
|00000540| 69 73 20 73 65 74 0a 74 | 6f 20 61 20 6e 65 77 20 |is set.t|o a new |
|00000550| 66 75 6e 63 74 69 6f 6e | 2c 20 74 68 61 74 20 66 |function|, that f|
|00000560| 75 6e 63 74 69 6f 6e 20 | 77 69 6c 6c 20 62 65 20 |unction |will be |
|00000570| 63 61 6c 6c 65 64 20 6f | 6e 63 65 20 61 6e 64 20 |called o|nce and |
|00000580| 6f 6e 6c 79 20 6f 6e 63 | 65 2e 22 29 0a 28 64 65 |only onc|e.").(de|
|00000590| 66 76 61 72 20 65 64 65 | 62 75 67 2d 61 6c 6c 2d |fvar ede|bug-all-|
|000005a0| 64 65 66 73 20 6e 69 6c | 20 22 5c 0a 2a 49 66 20 |defs nil| "\.*If |
|000005b0| 6e 6f 6e 2d 6e 69 6c 2c | 20 65 76 61 6c 75 61 74 |non-nil,| evaluat|
|000005c0| 69 6f 6e 20 6f 66 20 61 | 6e 79 20 64 65 66 69 6e |ion of a|ny defin|
|000005d0| 69 6e 67 20 66 6f 72 6d | 73 20 77 69 6c 6c 20 75 |ing form|s will u|
|000005e0| 73 65 20 65 64 65 62 75 | 67 2e 0a 65 76 61 6c 2d |se edebu|g..eval-|
|000005f0| 64 65 66 75 6e 20 77 69 | 74 68 6f 75 74 20 70 72 |defun wi|thout pr|
|00000600| 65 66 69 78 20 61 72 67 | 20 61 6e 64 20 65 76 61 |efix arg| and eva|
|00000610| 6c 2d 72 65 67 69 6f 6e | 20 77 69 6c 6c 20 75 73 |l-region| will us|
|00000620| 65 0a 65 64 65 62 75 67 | 2d 65 76 61 6c 2d 74 6f |e.edebug|-eval-to|
|00000630| 70 2d 6c 65 76 65 6c 2d | 66 6f 72 6d 2e 0a 0a 49 |p-level-|form...I|
|00000640| 66 20 6e 69 6c 2c 20 65 | 76 61 6c 2d 72 65 67 69 |f nil, e|val-regi|
|00000650| 6f 6e 20 65 76 61 6c 75 | 61 74 65 73 20 6e 6f 72 |on evalu|ates nor|
|00000660| 6d 61 6c 6c 79 2c 20 62 | 75 74 20 65 76 61 6c 2d |mally, b|ut eval-|
|00000670| 64 65 66 75 6e 20 77 69 | 74 68 20 70 72 65 66 69 |defun wi|th prefi|
|00000680| 78 20 61 72 67 0a 75 73 | 65 73 20 65 64 65 62 75 |x arg.us|es edebu|
|00000690| 67 2d 65 76 61 6c 2d 74 | 6f 70 2d 6c 65 76 65 6c |g-eval-t|op-level|
|000006a0| 2d 66 6f 72 6d 2e 20 20 | 65 76 61 6c 2d 72 65 67 |-form. |eval-reg|
|000006b0| 69 6f 6e 20 69 73 20 63 | 61 6c 6c 65 64 20 62 79 |ion is c|alled by|
|000006c0| 20 65 76 61 6c 2d 64 65 | 66 75 6e 2c 0a 65 76 61 | eval-de|fun,.eva|
|000006d0| 6c 2d 6c 61 73 74 2d 73 | 65 78 70 2c 20 61 6e 64 |l-last-s|exp, and|
|000006e0| 20 65 76 61 6c 2d 70 72 | 69 6e 74 2d 6c 61 73 74 | eval-pr|int-last|
|000006f0| 2d 73 65 78 70 2e 0a 0a | 59 6f 75 20 63 61 6e 20 |-sexp...|You can |
|00000700| 75 73 65 20 74 68 65 20 | 63 6f 6d 6d 61 6e 64 20 |use the |command |
|00000710| 65 64 65 62 75 67 2d 61 | 6c 6c 2d 64 65 66 73 20 |edebug-a|ll-defs |
|00000720| 74 6f 20 74 6f 67 67 6c | 65 20 74 68 65 20 76 61 |to toggl|e the va|
|00000730| 6c 75 65 20 6f 66 20 74 | 68 69 73 0a 76 61 72 69 |lue of t|his.vari|
|00000740| 61 62 6c 65 2e 20 20 59 | 6f 75 20 6d 61 79 20 77 |able. Y|ou may w|
|00000750| 69 73 68 20 74 6f 20 6d | 61 6b 65 20 74 68 69 73 |ish to m|ake this|
|00000760| 20 76 61 72 69 61 62 6c | 65 20 6c 6f 63 61 6c 20 | variabl|e local |
|00000770| 74 6f 20 65 61 63 68 0a | 62 75 66 66 65 72 20 62 |to each.|buffer b|
|00000780| 79 20 63 61 6c 6c 69 6e | 67 20 28 6d 61 6b 65 2d |y callin|g (make-|
|00000790| 6c 6f 63 61 6c 2d 76 61 | 72 69 61 62 6c 65 20 27 |local-va|riable '|
|000007a0| 65 64 65 62 75 67 2d 61 | 6c 6c 2d 64 65 66 73 29 |edebug-a|ll-defs)|
|000007b0| 20 69 6e 20 79 6f 75 72 | 0a 65 6d 61 63 73 2d 6c | in your|.emacs-l|
|000007c0| 69 73 70 2d 6d 6f 64 65 | 2d 68 6f 6f 6b 2e 22 29 |isp-mode|-hook.")|
|000007d0| 0a 28 64 65 66 76 61 72 | 20 65 64 65 62 75 67 2d |.(defvar| edebug-|
|000007e0| 61 6c 6c 2d 66 6f 72 6d | 73 20 6e 69 6c 20 22 5c |all-form|s nil "\|
|000007f0| 0a 2a 4e 6f 6e 2d 6e 69 | 6c 20 6d 65 61 6e 73 20 |.*Non-ni|l means |
|00000800| 65 64 65 62 75 67 20 74 | 68 65 20 65 76 61 6c 75 |edebug t|he evalu|
|00000810| 61 74 69 6f 6e 20 6f 66 | 20 61 6c 6c 20 66 6f 72 |ation of| all for|
|00000820| 6d 73 2c 20 69 6e 63 6c | 75 64 69 6e 67 20 74 6f |ms, incl|uding to|
|00000830| 70 20 6c 65 76 65 6c 2e | 20 20 0a 55 73 65 20 74 |p level.| .Use t|
|00000840| 68 65 20 63 6f 6d 6d 61 | 6e 64 20 65 64 65 62 75 |he comma|nd edebu|
|00000850| 67 2d 61 6c 6c 2d 66 6f | 72 6d 73 20 74 6f 20 74 |g-all-fo|rms to t|
|00000860| 6f 67 67 6c 65 20 74 68 | 65 20 76 61 6c 75 65 20 |oggle th|e value |
|00000870| 6f 66 20 74 68 69 73 20 | 6f 70 74 69 6f 6e 2e 22 |of this |option."|
|00000880| 29 0a 28 64 65 66 76 61 | 72 20 65 64 65 62 75 67 |).(defva|r edebug|
|00000890| 2d 65 76 61 6c 2d 6d 61 | 63 72 6f 2d 61 72 67 73 |-eval-ma|cro-args|
|000008a0| 20 6e 69 6c 20 22 5c 0a | 2a 4e 6f 6e 2d 6e 69 6c | nil "\.|*Non-nil|
|000008b0| 20 6d 65 61 6e 73 20 61 | 6c 6c 20 6d 61 63 72 6f | means a|ll macro|
|000008c0| 20 63 61 6c 6c 20 61 72 | 67 75 6d 65 6e 74 73 20 | call ar|guments |
|000008d0| 6d 61 79 20 62 65 20 65 | 76 61 6c 75 61 74 65 64 |may be e|valuated|
|000008e0| 2e 20 20 0a 49 66 20 74 | 68 69 73 20 76 61 72 69 |. .If t|his vari|
|000008f0| 61 62 6c 65 20 69 73 20 | 6e 69 6c 2c 20 74 68 65 |able is |nil, the|
|00000900| 20 64 65 66 61 75 6c 74 | 2c 20 65 64 65 62 75 67 | default|, edebug|
|00000910| 20 77 69 6c 6c 20 2a 6e | 6f 74 2a 20 77 72 61 70 | will *n|ot* wrap|
|00000920| 0a 6d 61 63 72 6f 20 63 | 61 6c 6c 20 61 72 67 75 |.macro c|all argu|
|00000930| 6d 65 6e 74 73 20 61 73 | 20 69 66 20 74 68 65 79 |ments as| if they|
|00000940| 20 77 69 6c 6c 20 62 65 | 20 65 76 61 6c 75 61 74 | will be| evaluat|
|00000950| 65 64 2e 20 20 0a 46 6f | 72 20 65 61 63 68 20 6d |ed. .Fo|r each m|
|00000960| 61 63 72 6f 2c 20 61 20 | 65 64 65 62 75 67 2d 66 |acro, a |edebug-f|
|00000970| 6f 72 6d 2d 73 70 65 63 | 20 6f 76 65 72 72 69 64 |orm-spec| overrid|
|00000980| 65 73 20 74 68 69 73 20 | 6f 70 74 69 6f 6e 2e 0a |es this |option..|
|00000990| 53 6f 20 74 6f 20 73 70 | 65 63 69 66 79 20 65 78 |So to sp|ecify ex|
|000009a0| 63 65 70 74 69 6f 6e 73 | 20 66 6f 72 20 6d 61 63 |ceptions| for mac|
|000009b0| 72 6f 73 20 74 68 61 74 | 20 68 61 76 65 20 73 6f |ros that| have so|
|000009c0| 6d 65 20 61 72 67 75 6d | 65 6e 74 73 20 65 76 61 |me argum|ents eva|
|000009d0| 6c 75 61 74 65 64 0a 61 | 6e 64 20 73 6f 6d 65 20 |luated.a|nd some |
|000009e0| 6e 6f 74 2c 20 79 6f 75 | 20 73 68 6f 75 6c 64 20 |not, you| should |
|000009f0| 73 70 65 63 69 66 79 20 | 61 6e 20 65 64 65 62 75 |specify |an edebu|
|00000a00| 67 2d 66 6f 72 6d 2d 73 | 70 65 63 22 29 0a 28 64 |g-form-s|pec").(d|
|00000a10| 65 66 76 61 72 20 65 64 | 65 62 75 67 2d 73 74 6f |efvar ed|ebug-sto|
|00000a20| 70 2d 62 65 66 6f 72 65 | 2d 73 79 6d 62 6f 6c 73 |p-before|-symbols|
|00000a30| 20 6e 69 6c 20 22 5c 0a | 2a 4e 6f 6e 2d 6e 69 6c | nil "\.|*Non-nil|
|00000a40| 20 63 61 75 73 65 73 20 | 65 64 65 62 75 67 20 74 | causes |edebug t|
|00000a50| 6f 20 73 74 6f 70 20 62 | 65 66 6f 72 65 20 73 79 |o stop b|efore sy|
|00000a60| 6d 62 6f 6c 73 20 61 73 | 20 77 65 6c 6c 20 61 73 |mbols as| well as|
|00000a70| 20 61 66 74 65 72 2e 0a | 49 6e 20 61 6e 79 20 63 | after..|In any c|
|00000a80| 61 73 65 2c 20 69 74 20 | 69 73 20 70 6f 73 73 69 |ase, it |is possi|
|00000a90| 62 6c 65 20 74 6f 20 73 | 74 6f 70 20 62 65 66 6f |ble to s|top befo|
|00000aa0| 72 65 20 61 20 73 79 6d | 62 6f 6c 20 77 69 74 68 |re a sym|bol with|
|00000ab0| 20 61 20 62 72 65 61 6b | 70 6f 69 6e 74 20 6f 72 | a break|point or|
|00000ac0| 0a 69 6e 74 65 72 72 75 | 70 74 2e 22 29 0a 28 64 |.interru|pt.").(d|
|00000ad0| 65 66 76 61 72 20 65 64 | 65 62 75 67 2d 73 61 76 |efvar ed|ebug-sav|
|00000ae0| 65 2d 77 69 6e 64 6f 77 | 73 20 74 20 22 5c 0a 2a |e-window|s t "\.*|
|00000af0| 49 66 20 6e 6f 6e 2d 6e | 69 6c 2c 20 73 61 76 65 |If non-n|il, save|
|00000b00| 20 61 6e 64 20 72 65 73 | 74 6f 72 65 20 77 69 6e | and res|tore win|
|00000b10| 64 6f 77 20 63 6f 6e 66 | 69 67 75 72 61 74 69 6f |dow conf|iguratio|
|00000b20| 6e 20 6f 6e 20 65 64 65 | 62 75 67 20 63 61 6c 6c |n on ede|bug call|
|00000b30| 73 2e 0a 49 74 20 74 61 | 6b 65 73 20 73 6f 6d 65 |s..It ta|kes some|
|00000b40| 20 74 69 6d 65 20 74 6f | 20 73 61 76 65 20 61 6e | time to| save an|
|00000b50| 64 20 72 65 73 74 6f 72 | 65 2c 20 73 6f 20 69 66 |d restor|e, so if|
|00000b60| 20 79 6f 75 72 20 70 72 | 6f 67 72 61 6d 20 64 6f | your pr|ogram do|
|00000b70| 65 73 20 6e 6f 74 20 63 | 61 72 65 0a 77 68 61 74 |es not c|are.what|
|00000b80| 20 68 61 70 70 65 6e 73 | 20 74 6f 20 74 68 65 20 | happens| to the |
|00000b90| 77 69 6e 64 6f 77 20 63 | 6f 6e 66 69 67 75 72 61 |window c|onfigura|
|00000ba0| 74 69 6f 6e 73 2c 20 69 | 74 20 69 73 20 62 65 74 |tions, i|t is bet|
|00000bb0| 74 65 72 20 74 6f 20 73 | 65 74 20 74 68 69 73 0a |ter to s|et this.|
|00000bc0| 76 61 72 69 61 62 6c 65 | 20 74 6f 20 6e 69 6c 2e |variable| to nil.|
|00000bd0| 0a 0a 46 6f 72 20 65 70 | 6f 63 68 2c 20 74 68 69 |..For ep|och, thi|
|00000be0| 73 20 6f 70 74 69 6f 6e | 20 61 6c 73 6f 20 63 6f |s option| also co|
|00000bf0| 6e 74 72 6f 6c 73 20 70 | 72 65 73 65 72 76 69 6e |ntrols p|reservin|
|00000c00| 67 20 6f 66 20 73 63 72 | 65 65 6e 20 63 6f 6e 66 |g of scr|een conf|
|00000c10| 69 67 75 72 61 74 69 6f | 6e 73 2e 22 29 0a 28 64 |iguratio|ns.").(d|
|00000c20| 65 66 76 61 72 20 65 64 | 65 62 75 67 2d 73 61 76 |efvar ed|ebug-sav|
|00000c30| 65 2d 64 69 73 70 6c 61 | 79 65 64 2d 62 75 66 66 |e-displa|yed-buff|
|00000c40| 65 72 2d 70 6f 69 6e 74 | 73 20 6e 69 6c 20 22 5c |er-point|s nil "\|
|00000c50| 0a 2a 49 66 20 6e 6f 6e | 2d 6e 69 6c 2c 20 73 61 |.*If non|-nil, sa|
|00000c60| 76 65 20 61 6e 64 20 72 | 65 73 74 6f 72 65 20 74 |ve and r|estore t|
|00000c70| 68 65 20 70 6f 69 6e 74 | 73 20 6f 66 20 61 6c 6c |he point|s of all|
|00000c80| 20 64 69 73 70 6c 61 79 | 65 64 20 62 75 66 66 65 | display|ed buffe|
|00000c90| 72 73 2e 0a 0a 53 61 76 | 69 6e 67 20 61 6e 64 20 |rs...Sav|ing and |
|00000ca0| 72 65 73 74 6f 72 69 6e | 67 20 62 75 66 66 65 72 |restorin|g buffer|
|00000cb0| 20 70 6f 69 6e 74 73 20 | 69 73 20 6e 65 63 65 73 | points |is neces|
|00000cc0| 73 61 72 79 20 69 66 20 | 79 6f 75 20 61 72 65 20 |sary if |you are |
|00000cd0| 64 65 62 75 67 67 69 6e | 67 0a 63 6f 64 65 20 74 |debuggin|g.code t|
|00000ce0| 68 61 74 20 63 68 61 6e | 67 65 73 20 74 68 65 20 |hat chan|ges the |
|00000cf0| 70 6f 69 6e 74 20 6f 66 | 20 61 20 62 75 66 66 65 |point of| a buffe|
|00000d00| 72 20 77 68 69 63 68 20 | 69 73 20 64 69 73 70 6c |r which |is displ|
|00000d10| 61 79 65 64 20 69 6e 20 | 61 0a 6e 6f 6e 2d 73 65 |ayed in |a.non-se|
|00000d20| 6c 65 63 74 65 64 20 77 | 69 6e 64 6f 77 2e 20 20 |lected w|indow. |
|00000d30| 49 66 20 65 64 65 62 75 | 67 20 6f 72 20 74 68 65 |If edebu|g or the|
|00000d40| 20 75 73 65 72 20 74 68 | 65 6e 20 73 65 6c 65 63 | user th|en selec|
|00000d50| 74 73 20 74 68 65 0a 77 | 69 6e 64 6f 77 2c 20 74 |ts the.w|indow, t|
|00000d60| 68 65 20 62 75 66 66 65 | 72 27 73 20 70 6f 69 6e |he buffe|r's poin|
|00000d70| 74 20 77 69 6c 6c 20 62 | 65 20 63 68 61 6e 67 65 |t will b|e change|
|00000d80| 64 20 74 6f 20 74 68 65 | 20 77 69 6e 64 6f 77 27 |d to the| window'|
|00000d90| 73 20 70 6f 69 6e 74 2e | 0a 0a 42 75 74 20 74 68 |s point.|..But th|
|00000da0| 69 73 20 70 72 65 73 65 | 72 76 61 74 69 6f 6e 20 |is prese|rvation |
|00000db0| 69 73 20 61 6e 20 65 78 | 70 65 6e 73 69 76 65 20 |is an ex|pensive |
|00000dc0| 6f 70 65 72 61 74 69 6f | 6e 20 73 69 6e 63 65 20 |operatio|n since |
|00000dd0| 69 74 20 76 69 73 69 74 | 73 20 65 61 63 68 0a 77 |it visit|s each.w|
|00000de0| 69 6e 64 6f 77 20 61 6e | 64 20 69 74 73 20 64 69 |indow an|d its di|
|00000df0| 73 70 6c 61 79 65 64 20 | 62 75 66 66 65 72 20 74 |splayed |buffer t|
|00000e00| 77 69 63 65 20 66 6f 72 | 20 65 61 63 68 20 65 64 |wice for| each ed|
|00000e10| 65 62 75 67 20 63 61 6c | 6c 2c 20 73 6f 20 69 74 |ebug cal|l, so it|
|00000e20| 20 69 73 0a 62 65 73 74 | 20 74 6f 20 61 76 6f 69 | is.best| to avoi|
|00000e30| 64 20 69 74 20 69 66 20 | 79 6f 75 20 63 61 6e 2e |d it if |you can.|
|00000e40| 22 29 0a 28 64 65 66 76 | 61 72 20 65 64 65 62 75 |").(defv|ar edebu|
|00000e50| 67 2d 69 6e 69 74 69 61 | 6c 2d 6d 6f 64 65 20 27 |g-initia|l-mode '|
|00000e60| 73 74 65 70 20 22 5c 0a | 2a 49 6e 69 74 69 61 6c |step "\.|*Initial|
|00000e70| 20 65 78 65 63 75 74 69 | 6f 6e 20 6d 6f 64 65 20 | executi|on mode |
|00000e80| 66 6f 72 20 65 64 65 62 | 75 67 2c 20 69 66 20 6e |for edeb|ug, if n|
|00000e90| 6f 6e 2d 6e 69 6c 2e 20 | 20 0a 54 68 69 73 20 69 |on-nil. | .This i|
|00000ea0| 73 20 75 73 65 64 20 77 | 68 65 6e 20 65 64 65 62 |s used w|hen edeb|
|00000eb0| 75 67 20 69 73 20 66 69 | 72 73 74 20 65 6e 74 65 |ug is fi|rst ente|
|00000ec0| 72 65 64 20 66 6f 72 20 | 65 61 63 68 20 72 65 63 |red for |each rec|
|00000ed0| 75 72 73 69 76 65 2d 65 | 64 69 74 0a 6c 65 76 65 |ursive-e|dit.leve|
|00000ee0| 6c 2e 20 20 50 6f 73 73 | 69 62 6c 65 20 76 61 6c |l. Poss|ible val|
|00000ef0| 75 65 73 20 61 72 65 20 | 6e 69 6c 20 28 77 68 69 |ues are |nil (whi|
|00000f00| 63 68 20 6d 65 61 6e 73 | 20 6c 65 61 76 65 0a 65 |ch means| leave.e|
|00000f10| 64 65 62 75 67 2d 65 78 | 65 63 75 74 69 6f 6e 2d |debug-ex|ecution-|
|00000f20| 6d 6f 64 65 20 61 73 20 | 69 73 29 2c 20 73 74 65 |mode as |is), ste|
|00000f30| 70 2c 20 28 74 68 65 20 | 64 65 66 61 75 6c 74 29 |p, (the |default)|
|00000f40| 2c 20 6e 65 78 74 2c 20 | 67 6f 2c 0a 47 6f 2d 6e |, next, |go,.Go-n|
|00000f50| 6f 6e 73 74 6f 70 2c 20 | 74 72 61 63 65 2c 20 54 |onstop, |trace, T|
|00000f60| 72 61 63 65 2d 66 61 73 | 74 2c 20 63 6f 6e 74 69 |race-fas|t, conti|
|00000f70| 6e 75 65 2c 20 61 6e 64 | 20 43 6f 6e 74 69 6e 75 |nue, and| Continu|
|00000f80| 65 2d 66 61 73 74 2e 22 | 29 0a 28 64 65 66 76 61 |e-fast."|).(defva|
|00000f90| 72 20 65 64 65 62 75 67 | 2d 74 72 61 63 65 20 6e |r edebug|-trace n|
|00000fa0| 69 6c 20 22 5c 0a 2a 4e | 6f 6e 2d 6e 69 6c 20 69 |il "\.*N|on-nil i|
|00000fb0| 66 20 65 64 65 62 75 67 | 20 73 68 6f 75 6c 64 20 |f edebug| should |
|00000fc0| 73 68 6f 77 20 61 20 74 | 72 61 63 65 20 6f 66 20 |show a t|race of |
|00000fd0| 66 75 6e 63 74 69 6f 6e | 20 65 6e 74 72 79 20 61 |function| entry a|
|00000fe0| 6e 64 20 65 78 69 74 2e | 0a 54 72 61 63 69 6e 67 |nd exit.|.Tracing|
|00000ff0| 20 6f 75 74 70 75 74 20 | 69 73 20 64 69 73 70 6c | output |is displ|
|00001000| 61 79 65 64 20 69 6e 20 | 61 20 62 75 66 66 65 72 |ayed in |a buffer|
|00001010| 20 6e 61 6d 65 64 20 62 | 79 20 74 68 65 20 76 61 | named b|y the va|
|00001020| 72 69 61 62 6c 65 0a 65 | 64 65 62 75 67 2d 74 72 |riable.e|debug-tr|
|00001030| 61 63 65 2d 62 75 66 66 | 65 72 2c 20 6f 6e 65 20 |ace-buff|er, one |
|00001040| 66 75 6e 63 74 69 6f 6e | 20 65 6e 74 72 79 20 6f |function| entry o|
|00001050| 72 20 65 78 69 74 20 70 | 65 72 20 6c 69 6e 65 2c |r exit p|er line,|
|00001060| 20 69 6e 64 65 6e 74 65 | 64 20 62 79 0a 74 68 65 | indente|d by.the|
|00001070| 20 73 74 61 63 6b 20 64 | 65 70 74 68 2e 20 20 59 | stack d|epth. Y|
|00001080| 6f 75 20 63 61 6e 20 63 | 75 73 74 6f 6d 69 7a 65 |ou can c|ustomize|
|00001090| 20 62 79 20 72 65 70 6c | 61 63 69 6e 67 20 66 75 | by repl|acing fu|
|000010a0| 6e 63 74 69 6f 6e 73 0a | 65 64 65 62 75 67 2d 70 |nctions.|edebug-p|
|000010b0| 72 69 6e 74 2d 74 72 61 | 63 65 2d 62 65 66 6f 72 |rint-tra|ce-befor|
|000010c0| 65 20 61 6e 64 20 65 64 | 65 62 75 67 2d 70 72 69 |e and ed|ebug-pri|
|000010d0| 6e 74 2d 74 72 61 63 65 | 2d 61 66 74 65 72 2e 22 |nt-trace|-after."|
|000010e0| 29 0a 28 64 65 66 63 6f | 6e 73 74 20 65 64 65 62 |).(defco|nst edeb|
|000010f0| 75 67 2d 74 72 61 63 65 | 2d 62 75 66 66 65 72 20 |ug-trace|-buffer |
|00001100| 22 2a 65 64 65 62 75 67 | 2d 74 72 61 63 65 2a 22 |"*edebug|-trace*"|
|00001110| 20 22 5c 0a 4e 61 6d 65 | 20 6f 66 20 74 68 65 20 | "\.Name| of the |
|00001120| 62 75 66 66 65 72 20 74 | 6f 20 70 75 74 20 74 72 |buffer t|o put tr|
|00001130| 61 63 65 20 69 6e 66 6f | 20 69 6e 2e 22 29 0a 28 |ace info| in.").(|
|00001140| 64 65 66 76 61 72 20 65 | 64 65 62 75 67 2d 74 65 |defvar e|debug-te|
|00001150| 73 74 2d 63 6f 76 65 72 | 61 67 65 20 6e 69 6c 20 |st-cover|age nil |
|00001160| 22 5c 0a 2a 49 66 20 6e | 6f 6e 2d 6e 69 6c 2c 20 |"\.*If n|on-nil, |
|00001170| 45 64 65 62 75 67 20 74 | 65 73 74 73 20 63 6f 76 |Edebug t|ests cov|
|00001180| 65 72 61 67 65 20 6f 66 | 20 61 6c 6c 20 65 78 70 |erage of| all exp|
|00001190| 72 65 73 73 69 6f 6e 73 | 20 64 65 62 75 67 67 65 |ressions| debugge|
|000011a0| 64 2e 0a 54 68 69 73 20 | 69 73 20 64 6f 6e 65 20 |d..This |is done |
|000011b0| 62 79 20 63 6f 6d 70 61 | 72 69 6e 67 20 74 68 65 |by compa|ring the|
|000011c0| 20 72 65 73 75 6c 74 20 | 6f 66 20 65 61 63 68 20 | result |of each |
|000011d0| 65 78 70 72 65 73 73 69 | 6f 6e 0a 77 69 74 68 20 |expressi|on.with |
|000011e0| 74 68 65 20 70 72 65 76 | 69 6f 75 73 20 72 65 73 |the prev|ious res|
|000011f0| 75 6c 74 2e 20 43 6f 76 | 65 72 61 67 65 20 69 73 |ult. Cov|erage is|
|00001200| 20 63 6f 6e 73 69 64 65 | 72 65 64 20 4f 4b 20 69 | conside|red OK i|
|00001210| 66 20 74 77 6f 20 64 69 | 66 66 65 72 65 6e 74 0a |f two di|fferent.|
|00001220| 72 65 73 75 6c 74 73 20 | 61 72 65 20 66 6f 75 6e |results |are foun|
|00001230| 64 2e 20 20 53 6f 20 74 | 6f 20 73 75 66 66 69 63 |d. So t|o suffic|
|00001240| 69 65 6e 74 6c 79 20 74 | 65 73 74 20 74 68 65 20 |iently t|est the |
|00001250| 63 6f 76 65 72 61 67 65 | 20 6f 66 20 79 6f 75 72 |coverage| of your|
|00001260| 20 63 6f 64 65 2c 0a 74 | 72 79 20 74 6f 20 65 78 | code,.t|ry to ex|
|00001270| 65 63 75 74 65 20 69 74 | 20 75 6e 64 65 72 20 63 |ecute it| under c|
|00001280| 6f 6e 64 69 74 69 6f 6e | 73 20 74 68 61 74 20 65 |ondition|s that e|
|00001290| 76 61 6c 75 61 74 65 20 | 61 6c 6c 20 65 78 70 72 |valuate |all expr|
|000012a0| 65 73 73 69 6f 6e 73 20 | 6d 6f 72 65 0a 74 68 61 |essions |more.tha|
|000012b0| 6e 20 6f 6e 63 65 2c 20 | 61 6e 64 20 70 72 6f 64 |n once, |and prod|
|000012c0| 75 63 65 20 64 69 66 66 | 65 72 65 6e 74 20 72 65 |uce diff|erent re|
|000012d0| 73 75 6c 74 73 20 66 6f | 72 20 65 61 63 68 20 65 |sults fo|r each e|
|000012e0| 78 70 72 65 73 73 69 6f | 6e 2e 0a 0a 55 73 65 20 |xpressio|n...Use |
|000012f0| 60 65 64 65 62 75 67 2d | 64 69 73 70 6c 61 79 2d |`edebug-|display-|
|00001300| 66 72 65 71 2d 63 6f 75 | 6e 74 27 20 74 6f 20 64 |freq-cou|nt' to d|
|00001310| 69 73 70 6c 61 79 20 74 | 68 65 20 66 72 65 71 75 |isplay t|he frequ|
|00001320| 65 6e 63 79 20 63 6f 75 | 6e 74 20 61 6e 64 0a 63 |ency cou|nt and.c|
|00001330| 6f 76 65 72 61 67 65 20 | 69 6e 66 6f 72 6d 61 74 |overage |informat|
|00001340| 69 6f 6e 20 66 6f 72 20 | 61 20 64 65 66 69 6e 69 |ion for |a defini|
|00001350| 74 69 6f 6e 2e 22 29 0a | 28 64 65 66 76 61 72 20 |tion.").|(defvar |
|00001360| 65 64 65 62 75 67 2d 63 | 6f 6e 74 69 6e 75 65 2d |edebug-c|ontinue-|
|00001370| 6b 62 64 2d 6d 61 63 72 | 6f 20 6e 69 6c 20 22 5c |kbd-macr|o nil "\|
|00001380| 0a 2a 49 66 20 6e 6f 6e | 2d 6e 69 6c 2c 20 63 6f |.*If non|-nil, co|
|00001390| 6e 74 69 6e 75 65 20 65 | 78 65 63 75 74 69 6e 67 |ntinue e|xecuting|
|000013a0| 20 61 6e 79 20 6b 65 79 | 62 6f 61 72 64 20 6d 61 | any key|board ma|
|000013b0| 63 72 6f 20 74 68 61 74 | 20 69 73 20 65 78 65 63 |cro that| is exec|
|000013c0| 75 74 69 6e 67 20 6f 75 | 74 73 69 64 65 2e 22 29 |uting ou|tside.")|
|000013d0| 0a 28 64 65 66 76 61 72 | 20 65 64 65 62 75 67 2d |.(defvar| edebug-|
|000013e0| 70 72 69 6e 74 2d 6c 65 | 6e 67 74 68 20 35 30 20 |print-le|ngth 50 |
|000013f0| 22 5c 0a 2a 44 65 66 61 | 75 6c 74 20 76 61 6c 75 |"\.*Defa|ult valu|
|00001400| 65 20 6f 66 20 70 72 69 | 6e 74 2d 6c 65 6e 67 74 |e of pri|nt-lengt|
|00001410| 68 20 74 6f 20 75 73 65 | 20 77 68 69 6c 65 20 70 |h to use| while p|
|00001420| 72 69 6e 74 69 6e 67 20 | 72 65 73 75 6c 74 73 20 |rinting |results |
|00001430| 69 6e 20 65 64 65 62 75 | 67 2e 22 29 0a 28 64 65 |in edebu|g.").(de|
|00001440| 66 76 61 72 20 65 64 65 | 62 75 67 2d 70 72 69 6e |fvar ede|bug-prin|
|00001450| 74 2d 6c 65 76 65 6c 20 | 35 30 20 22 5c 0a 2a 44 |t-level |50 "\.*D|
|00001460| 65 66 61 75 6c 74 20 76 | 61 6c 75 65 20 6f 66 20 |efault v|alue of |
|00001470| 70 72 69 6e 74 2d 6c 65 | 76 65 6c 20 74 6f 20 75 |print-le|vel to u|
|00001480| 73 65 20 77 68 69 6c 65 | 20 70 72 69 6e 74 69 6e |se while| printin|
|00001490| 67 20 72 65 73 75 6c 74 | 73 20 69 6e 20 65 64 65 |g result|s in ede|
|000014a0| 62 75 67 2e 22 29 0a 28 | 64 65 66 76 61 72 20 65 |bug.").(|defvar e|
|000014b0| 64 65 62 75 67 2d 70 72 | 69 6e 74 2d 63 69 72 63 |debug-pr|int-circ|
|000014c0| 6c 65 20 74 20 22 5c 0a | 2a 44 65 66 61 75 6c 74 |le t "\.|*Default|
|000014d0| 20 76 61 6c 75 65 20 6f | 66 20 70 72 69 6e 74 2d | value o|f print-|
|000014e0| 63 69 72 63 6c 65 20 74 | 6f 20 75 73 65 20 77 68 |circle t|o use wh|
|000014f0| 69 6c 65 20 70 72 69 6e | 74 69 6e 67 20 72 65 73 |ile prin|ting res|
|00001500| 75 6c 74 73 20 69 6e 20 | 65 64 65 62 75 67 2e 22 |ults in |edebug."|
|00001510| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00001520| 21 ac 91 c2 c3 21 ac 82 | c4 13 c5 c3 c6 c7 23 88 |!....!..|......#.|
|00001530| c1 c8 4d 88 c0 c9 21 ac | 84 c9 ca 4d 88 c0 87 22 |..M...!.|...M..."|
|00001540| 20 5b 66 62 6f 75 6e 64 | 70 20 67 65 6e 73 79 6d | [fbound|p gensym|
|00001550| 20 62 6f 75 6e 64 70 20 | 2a 67 65 6e 73 79 6d 2d | boundp |*gensym-|
|00001560| 69 6e 64 65 78 2a 20 30 | 20 70 75 74 20 76 61 72 |index* 0| put var|
|00001570| 69 61 62 6c 65 2d 64 6f | 63 75 6d 65 6e 74 61 74 |iable-do|cumentat|
|00001580| 69 6f 6e 20 22 49 6e 74 | 65 67 65 72 20 75 73 65 |ion "Int|eger use|
|00001590| 64 20 62 79 20 67 65 6e | 73 79 6d 20 74 6f 20 70 |d by gen|sym to p|
|000015a0| 72 6f 64 75 63 65 20 6e | 65 77 20 6e 61 6d 65 73 |roduce n|ew names|
|000015b0| 2e 22 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |." #[(&o|ptional |
|000015c0| 70 72 65 66 69 78 29 20 | 22 08 ac 82 c1 10 c2 c3 |prefix) |".......|
|000015d0| 1c 1d 0d ac 99 c6 c7 08 | 0e 08 23 14 0e 08 c9 5c |........|..#....\|
|000015e0| 5c 16 08 ca 0c 21 ac 6b | cb 0c 21 89 15 ab 67 0d |\....!.k|..!...g.|
|000015f0| 2a 87 22 20 5b 70 72 65 | 66 69 78 20 22 47 22 20 |*." [pre|fix "G" |
|00001600| 6e 69 6c 20 22 22 20 6e | 65 77 6e 61 6d 65 20 6e |nil "" n|ewname n|
|00001610| 65 77 73 79 6d 62 6f 6c | 20 66 6f 72 6d 61 74 20 |ewsymbol| format |
|00001620| 22 25 73 25 64 22 20 2a | 67 65 6e 73 79 6d 2d 69 |"%s%d" *|gensym-i|
|00001630| 6e 64 65 78 2a 20 31 20 | 69 6e 74 65 72 6e 2d 73 |ndex* 1 |intern-s|
|00001640| 6f 66 74 20 6d 61 6b 65 | 2d 73 79 6d 62 6f 6c 5d |oft make|-symbol]|
|00001650| 20 35 20 22 47 65 6e 65 | 72 61 74 65 20 61 20 66 | 5 "Gene|rate a f|
|00001660| 72 65 73 68 20 75 6e 69 | 6e 74 65 72 6e 65 64 20 |resh uni|nterned |
|00001670| 73 79 6d 62 6f 6c 2e 5c | 6e 54 68 65 72 65 20 69 |symbol.\|nThere i|
|00001680| 73 20 61 6e 20 20 6f 70 | 74 69 6f 6e 61 6c 20 61 |s an op|tional a|
|00001690| 72 67 75 6d 65 6e 74 2c | 20 50 52 45 46 49 58 2e |rgument,| PREFIX.|
|000016a0| 20 20 50 52 45 46 49 58 | 20 69 73 20 74 68 65 5c | PREFIX| is the\|
|000016b0| 6e 73 74 72 69 6e 67 20 | 74 68 61 74 20 62 65 67 |nstring |that beg|
|000016c0| 69 6e 73 20 74 68 65 20 | 6e 65 77 20 6e 61 6d 65 |ins the |new name|
|000016d0| 2e 20 4d 6f 73 74 20 70 | 65 6f 70 6c 65 20 74 61 |. Most p|eople ta|
|000016e0| 6b 65 20 6a 75 73 74 20 | 74 68 65 20 64 65 66 61 |ke just |the defa|
|000016f0| 75 6c 74 2c 5c 6e 65 78 | 63 65 70 74 20 77 68 65 |ult,\nex|cept whe|
|00001700| 6e 20 64 65 62 75 67 67 | 69 6e 67 20 6e 65 65 64 |n debugg|ing need|
|00001710| 73 20 73 75 67 67 65 73 | 74 20 6f 74 68 65 72 77 |s sugges|t otherw|
|00001720| 69 73 65 2e 22 5d 20 6b | 65 79 77 6f 72 64 70 20 |ise."] k|eywordp |
|00001730| 23 5b 28 6f 62 6a 65 63 | 74 29 20 22 08 39 ad 87 |#[(objec|t) ".9..|
|00001740| c1 08 21 c2 48 c3 55 87 | 22 20 5b 6f 62 6a 65 63 |..!.H.U.|" [objec|
|00001750| 74 20 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 30 20 |t symbol|-name 0 |
|00001760| 35 38 5d 20 32 20 22 52 | 65 74 75 72 6e 20 74 20 |58] 2 "R|eturn t |
|00001770| 69 66 20 4f 42 4a 45 43 | 54 20 69 73 20 61 20 6b |if OBJEC|T is a k|
|00001780| 65 79 77 6f 72 64 2e 5c | 6e 41 20 6b 65 79 77 6f |eyword.\|nA keywo|
|00001790| 72 64 20 69 73 20 61 20 | 73 79 6d 62 6f 6c 20 74 |rd is a |symbol t|
|000017a0| 68 61 74 20 73 74 61 72 | 74 73 20 77 69 74 68 20 |hat star|ts with |
|000017b0| 22 5d 5d 20 34 29 0a 28 | 66 73 65 74 20 27 6c 61 |"]] 4).(|fset 'la|
|000017c0| 6d 62 64 61 2d 6c 69 73 | 74 2d 6b 65 79 77 6f 72 |mbda-lis|t-keywor|
|000017d0| 64 70 20 23 5b 28 6f 62 | 6a 65 63 74 29 20 22 08 |dp #[(ob|ject) ".|
|000017e0| 39 ad 87 c1 08 21 c2 48 | c3 55 87 22 20 5b 6f 62 |9....!.H|.U." [ob|
|000017f0| 6a 65 63 74 20 73 79 6d | 62 6f 6c 2d 6e 61 6d 65 |ject sym|bol-name|
|00001800| 20 30 20 33 38 5d 20 32 | 20 22 5c 0a 52 65 74 75 | 0 38] 2| "\.Retu|
|00001810| 72 6e 20 74 20 69 66 20 | 4f 42 4a 45 43 54 20 69 |rn t if |OBJECT i|
|00001820| 73 20 61 20 6c 61 6d 62 | 64 61 20 6c 69 73 74 20 |s a lamb|da list |
|00001830| 6b 65 79 77 6f 72 64 2e | 0a 41 20 6c 61 6d 62 64 |keyword.|.A lambd|
|00001840| 61 20 6c 69 73 74 20 6b | 65 79 77 6f 72 64 20 69 |a list k|eyword i|
|00001850| 73 20 61 20 73 79 6d 62 | 6f 6c 20 74 68 61 74 20 |s a symb|ol that |
|00001860| 73 74 61 72 74 73 20 77 | 69 74 68 20 22 5d 29 0a |starts w|ith "]).|
|00001870| 28 66 73 65 74 20 27 65 | 64 65 62 75 67 2d 6c 61 |(fset 'e|debug-la|
|00001880| 73 74 2d 73 65 78 70 20 | 23 5b 6e 69 6c 20 22 c0 |st-sexp |#[nil ".|
|00001890| 8a c1 c2 21 88 60 29 60 | 7b 21 40 87 22 20 5b 72 |...!.`)`|{!@." [r|
|000018a0| 65 61 64 2d 66 72 6f 6d | 2d 73 74 72 69 6e 67 20 |ead-from|-string |
|000018b0| 66 6f 72 77 61 72 64 2d | 73 65 78 70 20 2d 31 5d |forward-|sexp -1]|
|000018c0| 20 33 20 22 5c 0a 52 65 | 74 75 72 6e 20 74 68 65 | 3 "\.Re|turn the|
|000018d0| 20 6c 61 73 74 20 73 65 | 78 70 20 62 65 66 6f 72 | last se|xp befor|
|000018e0| 65 20 70 6f 69 6e 74 20 | 69 6e 20 63 75 72 72 65 |e point |in curre|
|000018f0| 6e 74 20 62 75 66 66 65 | 72 2e 0a 41 73 73 75 6d |nt buffe|r..Assum|
|00001900| 65 73 20 65 6c 69 73 70 | 20 73 79 6e 74 61 78 20 |es elisp| syntax |
|00001910| 69 73 20 61 63 74 69 76 | 65 2e 22 5d 29 0a 28 66 |is activ|e."]).(f|
|00001920| 73 65 74 20 27 65 64 65 | 62 75 67 2d 67 65 74 2d |set 'ede|bug-get-|
|00001930| 65 6d 61 63 73 2d 64 69 | 73 70 6c 61 79 65 64 2d |emacs-di|splayed-|
|00001940| 62 75 66 66 65 72 2d 70 | 6f 69 6e 74 73 20 23 5b |buffer-p|oints #[|
|00001950| 6e 69 6c 20 22 8a c0 20 | 19 c2 09 21 1b c4 1d c4 |nil ".. |...!....|
|00001960| 1e 06 0b 09 3d ac 96 c7 | 0b 21 89 16 06 71 88 0e |....=...|.!...q..|
|00001970| 06 60 42 0d 42 15 c2 0b | 21 89 13 aa 66 0d 2d 87 |.`B.B...|!...f.-.|
|00001980| 22 20 5b 73 65 6c 65 63 | 74 65 64 2d 77 69 6e 64 |" [selec|ted-wind|
|00001990| 6f 77 20 66 69 72 73 74 | 2d 77 69 6e 64 6f 77 20 |ow first|-window |
|000019a0| 6e 65 78 74 2d 77 69 6e | 64 6f 77 20 6e 65 78 74 |next-win|dow next|
|000019b0| 20 6e 69 6c 20 62 75 66 | 66 65 72 2d 70 6f 69 6e | nil buf|fer-poin|
|000019c0| 74 2d 6c 69 73 74 20 62 | 75 66 66 65 72 20 77 69 |t-list b|uffer wi|
|000019d0| 6e 64 6f 77 2d 62 75 66 | 66 65 72 5d 20 33 20 22 |ndow-buf|fer] 3 "|
|000019e0| 5c 0a 52 65 74 75 72 6e | 20 61 20 6c 69 73 74 20 |\.Return| a list |
|000019f0| 6f 66 20 62 75 66 66 65 | 72 20 70 6f 69 6e 74 20 |of buffe|r point |
|00001a00| 70 61 69 72 73 2c 20 66 | 6f 72 20 61 6c 6c 20 64 |pairs, f|or all d|
|00001a10| 69 73 70 6c 61 79 65 64 | 20 62 75 66 66 65 72 73 |isplayed| buffers|
|00001a20| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 65 64 65 62 |."]).(fs|et 'edeb|
|00001a30| 75 67 2d 73 65 74 2d 62 | 75 66 66 65 72 2d 70 6f |ug-set-b|uffer-po|
|00001a40| 69 6e 74 73 20 23 5b 28 | 62 75 66 66 65 72 2d 70 |ints #[(|buffer-p|
|00001a50| 6f 69 6e 74 73 29 20 22 | 70 18 c1 c2 0b 5c 22 88 |oints) "|p....\".|
|00001a60| 08 71 29 87 22 20 5b 63 | 75 72 72 65 6e 74 2d 62 |.q)." [c|urrent-b|
|00001a70| 75 66 66 65 72 20 6d 61 | 70 63 61 72 20 23 5b 28 |uffer ma|pcar #[(|
|00001a80| 62 75 66 2d 70 6f 69 6e | 74 29 20 22 c0 09 40 21 |buf-poin|t) "..@!|
|00001a90| ad 87 09 40 71 88 09 41 | 62 87 22 20 5b 62 75 66 |...@q..A|b." [buf|
|00001aa0| 66 65 72 2d 6e 61 6d 65 | 20 62 75 66 2d 70 6f 69 |fer-name| buf-poi|
|00001ab0| 6e 74 5d 20 32 5d 20 62 | 75 66 66 65 72 2d 70 6f |nt] 2] b|uffer-po|
|00001ac0| 69 6e 74 73 5d 20 33 20 | 22 5c 0a 52 65 73 74 6f |ints] 3 |"\.Resto|
|00001ad0| 72 65 20 74 68 65 20 62 | 75 66 66 65 72 2d 70 6f |re the b|uffer-po|
|00001ae0| 69 6e 74 73 20 63 72 65 | 61 74 65 64 20 62 79 20 |ints cre|ated by |
|00001af0| 65 64 65 62 75 67 2d 67 | 65 74 2d 64 69 73 70 6c |edebug-g|et-displ|
|00001b00| 61 79 65 64 2d 62 75 66 | 66 65 72 2d 70 6f 69 6e |ayed-buf|fer-poin|
|00001b10| 74 73 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 65 64 |ts."]).(|fset 'ed|
|00001b20| 65 62 75 67 2d 6d 61 63 | 72 6f 70 20 23 5b 28 6f |ebug-mac|rop #[(o|
|00001b30| 62 6a 65 63 74 29 20 22 | 08 39 ab 8b c1 08 21 ab |bject) "|.9....!.|
|00001b40| 86 08 4b 89 10 aa 72 08 | 3c ad 8d 08 40 c2 3d ad |..K...r.|<...@.=.|
|00001b50| 87 c3 08 41 21 ad 81 08 | 87 22 20 5b 6f 62 6a 65 |...A!...|." [obje|
|00001b60| 63 74 20 66 62 6f 75 6e | 64 70 20 6d 61 63 72 6f |ct fboun|dp macro|
|00001b70| 20 65 64 65 62 75 67 2d | 66 75 6e 63 74 69 6f 6e | edebug-|function|
|00001b80| 70 5d 20 33 20 22 5c 0a | 52 65 74 75 72 6e 20 74 |p] 3 "\.|Return t|
|00001b90| 68 65 20 6d 61 63 72 6f | 20 6e 61 6d 65 64 20 62 |he macro| named b|
|00001ba0| 79 20 4f 42 4a 45 43 54 | 2c 20 6f 72 20 6e 69 6c |y OBJECT|, or nil|
|00001bb0| 20 69 66 20 69 74 20 69 | 73 20 6e 6f 74 20 61 20 | if it i|s not a |
|00001bc0| 6d 61 63 72 6f 2e 22 5d | 29 0a 28 66 73 65 74 20 |macro."]|).(fset |
|00001bd0| 27 65 64 65 62 75 67 2d | 66 75 6e 63 74 69 6f 6e |'edebug-|function|
|00001be0| 70 20 23 5b 28 6f 62 6a | 65 63 74 29 20 22 08 39 |p #[(obj|ect) ".9|
|00001bf0| ab 8b c1 08 21 ab 86 08 | 4b 89 10 aa 72 c2 08 21 |....!...|K...r..!|
|00001c00| ac 90 08 3c ad 8d 08 40 | c3 3d ad 87 08 41 40 3c |...<...@|.=...A@<|
|00001c10| ad 81 08 87 22 20 5b 6f | 62 6a 65 63 74 20 66 62 |...." [o|bject fb|
|00001c20| 6f 75 6e 64 70 20 73 75 | 62 72 70 20 6c 61 6d 62 |oundp su|brp lamb|
|00001c30| 64 61 5d 20 33 20 22 5c | 0a 52 65 74 75 72 6e 73 |da] 3 "\|.Returns|
|00001c40| 20 74 68 65 20 66 75 6e | 63 74 69 6f 6e 20 6e 61 | the fun|ction na|
|00001c50| 6d 65 64 20 62 79 20 4f | 42 4a 45 43 54 2c 20 6f |med by O|BJECT, o|
|00001c60| 72 20 6e 69 6c 20 69 66 | 20 69 74 20 69 73 20 6e |r nil if| it is n|
|00001c70| 6f 74 20 61 20 66 75 6e | 63 74 69 6f 6e 2e 22 5d |ot a fun|ction."]|
|00001c80| 29 0a 28 66 73 65 74 20 | 27 65 64 65 62 75 67 2d |).(fset |'edebug-|
|00001c90| 73 6f 72 74 2d 61 6c 69 | 73 74 20 23 5b 28 61 6c |sort-ali|st #[(al|
|00001ca0| 69 73 74 20 66 75 6e 63 | 74 69 6f 6e 29 20 22 c0 |ist func|tion) ".|
|00001cb0| 09 c2 5c 22 87 22 20 5b | 73 6f 72 74 20 61 6c 69 |..\"." [|sort ali|
|00001cc0| 73 74 20 23 5b 28 65 31 | 20 65 32 29 20 22 08 09 |st #[(e1| e2) "..|
|00001cd0| 40 5c 6e 40 5c 22 87 22 | 20 5b 66 75 6e 63 74 69 |@\n@\"."| [functi|
|00001ce0| 6f 6e 20 65 31 20 65 32 | 5d 20 33 5d 5d 20 33 20 |on e1 e2|] 3]] 3 |
|00001cf0| 22 5c 0a 52 65 74 75 72 | 6e 20 74 68 65 20 41 4c |"\.Retur|n the AL|
|00001d00| 49 53 54 20 73 6f 72 74 | 65 64 20 77 69 74 68 20 |IST sort|ed with |
|00001d10| 63 6f 6d 70 61 72 69 73 | 6f 6e 20 66 75 6e 63 74 |comparis|on funct|
|00001d20| 69 6f 6e 20 46 55 4e 43 | 54 49 4f 4e 2e 0a 54 68 |ion FUNC|TION..Th|
|00001d30| 69 73 20 75 73 65 73 20 | 27 73 6f 72 74 20 73 6f |is uses |'sort so|
|00001d40| 20 74 68 65 20 73 6f 72 | 74 69 6e 67 20 69 73 20 | the sor|ting is |
|00001d50| 64 65 73 74 72 75 63 74 | 69 76 65 2e 22 5d 29 0a |destruct|ive."]).|
|00001d60| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 ad |(byte-co|de "..!.|
|00001d70| 81 09 12 c0 87 22 20 5b | 62 6f 75 6e 64 70 20 65 |....." [|boundp e|
|00001d80| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 20 65 64 |poch::ve|rsion ed|
|00001d90| 65 62 75 67 2d 65 70 6f | 63 68 5d 20 32 29 0a 28 |ebug-epo|ch] 2).(|
|00001da0| 66 73 65 74 20 27 73 65 | 74 2d 65 64 65 62 75 67 |fset 'se|t-edebug|
|00001db0| 2d 66 75 6e 63 20 23 5b | 28 65 64 65 62 75 67 2d |-func #[|(edebug-|
|00001dc0| 66 75 6e 63 20 65 70 6f | 63 68 2d 66 75 6e 63 20 |func epo|ch-func |
|00001dd0| 65 6d 61 63 73 2d 66 75 | 6e 63 29 20 22 08 09 ab |emacs-fu|nc) "...|
|00001de0| 84 5c 6e 4b aa 82 0b 4b | 4d 87 22 20 5b 65 64 65 |.\nK...K|M." [ede|
|00001df0| 62 75 67 2d 66 75 6e 63 | 20 65 64 65 62 75 67 2d |bug-func| edebug-|
|00001e00| 65 70 6f 63 68 20 65 70 | 6f 63 68 2d 66 75 6e 63 |epoch ep|och-func|
|00001e10| 20 65 6d 61 63 73 2d 66 | 75 6e 63 5d 20 32 20 22 | emacs-f|unc] 2 "|
|00001e20| 5c 0a 44 65 66 69 6e 65 | 20 61 20 66 75 6e 63 74 |\.Define| a funct|
|00001e30| 69 6f 6e 20 61 73 20 65 | 69 74 68 65 72 20 74 68 |ion as e|ither th|
|00001e40| 65 20 65 70 6f 63 68 20 | 76 65 72 73 69 6f 6e 20 |e epoch |version |
|00001e50| 6f 72 20 74 68 65 20 65 | 6d 61 63 73 20 76 65 72 |or the e|macs ver|
|00001e60| 73 69 6f 6e 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |sion."])|.(fset '|
|00001e70| 65 64 65 62 75 67 2d 67 | 65 74 2d 65 70 6f 63 68 |edebug-g|et-epoch|
|00001e80| 2d 64 69 73 70 6c 61 79 | 65 64 2d 62 75 66 66 65 |-display|ed-buffe|
|00001e90| 72 2d 70 6f 69 6e 74 73 | 20 23 5b 6e 69 6c 20 22 |r-points| #[nil "|
|00001ea0| c0 19 c2 c3 c4 c5 21 5c | 22 88 09 29 87 22 20 5b |......!\|"..)." [|
|00001eb0| 6e 69 6c 20 62 75 66 66 | 65 72 2d 70 6f 69 6e 74 |nil buff|er-point|
|00001ec0| 2d 6c 69 73 74 20 6d 61 | 70 63 61 72 20 23 5b 28 |-list ma|pcar #[(|
|00001ed0| 73 63 72 65 65 6e 29 20 | 22 c0 09 21 88 8a c2 20 |screen) |"..!... |
|00001ee0| 1b c4 0b 21 89 1d 0b 3d | ac 91 c6 0d 21 60 42 0e |...!...=|....!`B.|
|00001ef0| 07 42 16 07 c4 0d 21 89 | 15 aa 6b 0e 07 2b 87 22 |.B....!.|..k..+."|
|00001f00| 20 5b 73 65 6c 65 63 74 | 2d 73 63 72 65 65 6e 20 | [select|-screen |
|00001f10| 73 63 72 65 65 6e 20 73 | 65 6c 65 63 74 65 64 2d |screen s|elected-|
|00001f20| 77 69 6e 64 6f 77 20 66 | 69 72 73 74 2d 77 69 6e |window f|irst-win|
|00001f30| 64 6f 77 20 6e 65 78 74 | 2d 77 69 6e 64 6f 77 20 |dow next|-window |
|00001f40| 6e 65 78 74 20 77 69 6e | 64 6f 77 2d 62 75 66 66 |next win|dow-buff|
|00001f50| 65 72 20 62 75 66 66 65 | 72 2d 70 6f 69 6e 74 2d |er buffe|r-point-|
|00001f60| 6c 69 73 74 5d 20 33 5d | 20 65 70 6f 63 68 3a 3a |list] 3]| epoch::|
|00001f70| 73 63 72 65 65 6e 2d 6c | 69 73 74 20 75 6e 6d 61 |screen-l|ist unma|
|00001f80| 70 70 65 64 5d 20 34 20 | 22 5c 0a 52 65 74 75 72 |pped] 4 |"\.Retur|
|00001f90| 6e 20 61 20 6c 69 73 74 | 20 6f 66 20 62 75 66 66 |n a list| of buff|
|00001fa0| 65 72 20 70 6f 69 6e 74 | 20 70 61 69 72 73 2c 20 |er point| pairs, |
|00001fb0| 66 6f 72 20 61 6c 6c 20 | 64 69 73 70 6c 61 79 65 |for all |displaye|
|00001fc0| 64 20 62 75 66 66 65 72 | 73 2e 22 5d 29 0a 28 73 |d buffer|s."]).(s|
|00001fd0| 65 74 2d 65 64 65 62 75 | 67 2d 66 75 6e 63 20 27 |et-edebu|g-func '|
|00001fe0| 65 64 65 62 75 67 2d 67 | 65 74 2d 64 69 73 70 6c |edebug-g|et-displ|
|00001ff0| 61 79 65 64 2d 62 75 66 | 66 65 72 2d 70 6f 69 6e |ayed-buf|fer-poin|
|00002000| 74 73 20 27 65 64 65 62 | 75 67 2d 67 65 74 2d 65 |ts 'edeb|ug-get-e|
|00002010| 70 6f 63 68 2d 64 69 73 | 70 6c 61 79 65 64 2d 62 |poch-dis|played-b|
|00002020| 75 66 66 65 72 2d 70 6f | 69 6e 74 73 20 27 65 64 |uffer-po|ints 'ed|
|00002030| 65 62 75 67 2d 67 65 74 | 2d 65 6d 61 63 73 2d 64 |ebug-get|-emacs-d|
|00002040| 69 73 70 6c 61 79 65 64 | 2d 62 75 66 66 65 72 2d |isplayed|-buffer-|
|00002050| 70 6f 69 6e 74 73 29 0a | 28 66 73 65 74 20 27 65 |points).|(fset 'e|
|00002060| 64 65 62 75 67 2d 70 6f | 70 2d 74 6f 2d 62 75 66 |debug-po|p-to-buf|
|00002070| 66 65 72 20 23 5b 28 62 | 75 66 66 65 72 29 20 22 |fer #[(b|uffer) "|
|00002080| c0 09 21 89 1a ab 86 c3 | 5c 6e 21 88 aa b0 0c ab |..!.....|\n!.....|
|00002090| 8c c5 c6 c7 09 5c 22 40 | ae 82 c8 20 21 88 c9 20 |.....\"@|... !.. |
|000020a0| ab 83 ca 20 88 cb 0e 0c | 21 cd 20 3d ac 85 c3 cd |... ....|!. =....|
|000020b0| 20 21 88 ce cf 20 09 5c | 22 88 d0 cf 20 d1 5c 22 | !... .\|"... .\"|
|000020c0| 88 29 09 71 87 22 20 5b | 65 64 65 62 75 67 2d 67 |.).q." [|edebug-g|
|000020d0| 65 74 2d 62 75 66 66 65 | 72 2d 77 69 6e 64 6f 77 |et-buffe|r-window|
|000020e0| 20 62 75 66 66 65 72 20 | 65 64 65 62 75 67 2d 77 | buffer |edebug-w|
|000020f0| 69 6e 64 6f 77 20 73 65 | 6c 65 63 74 2d 77 69 6e |indow se|lect-win|
|00002100| 64 6f 77 20 65 64 65 62 | 75 67 2d 65 70 6f 63 68 |dow edeb|ug-epoch|
|00002110| 20 73 65 6c 65 63 74 2d | 73 63 72 65 65 6e 20 73 | select-|screen s|
|00002120| 79 6d 62 6f 6c 2d 62 75 | 66 66 65 72 2d 76 61 6c |ymbol-bu|ffer-val|
|00002130| 75 65 20 61 6c 6c 6f 77 | 65 64 2d 73 63 72 65 65 |ue allow|ed-scree|
|00002140| 6e 73 20 65 70 6f 63 68 | 3a 3a 63 75 72 72 65 6e |ns epoch|::curren|
|00002150| 74 2d 73 63 72 65 65 6e | 20 6f 6e 65 2d 77 69 6e |t-screen| one-win|
|00002160| 64 6f 77 2d 70 20 73 70 | 6c 69 74 2d 77 69 6e 64 |dow-p sp|lit-wind|
|00002170| 6f 77 20 67 65 74 2d 62 | 75 66 66 65 72 2d 77 69 |ow get-b|uffer-wi|
|00002180| 6e 64 6f 77 20 65 64 65 | 62 75 67 2d 74 72 61 63 |ndow ede|bug-trac|
|00002190| 65 2d 62 75 66 66 65 72 | 20 6e 65 78 74 2d 77 69 |e-buffer| next-wi|
|000021a0| 6e 64 6f 77 20 73 65 74 | 2d 77 69 6e 64 6f 77 2d |ndow set|-window-|
|000021b0| 62 75 66 66 65 72 20 73 | 65 6c 65 63 74 65 64 2d |buffer s|elected-|
|000021c0| 77 69 6e 64 6f 77 20 73 | 65 74 2d 77 69 6e 64 6f |window s|et-windo|
|000021d0| 77 2d 68 73 63 72 6f 6c | 6c 20 30 5d 20 35 20 22 |w-hscrol|l 0] 5 "|
|000021e0| 5c 0a 4c 69 6b 65 20 70 | 6f 70 2d 74 6f 2d 62 75 |\.Like p|op-to-bu|
|000021f0| 66 66 65 72 2c 20 62 75 | 74 20 73 65 6c 65 63 74 |ffer, bu|t select|
|00002200| 20 61 20 77 69 6e 64 6f | 77 20 74 68 61 74 20 62 | a windo|w that b|
|00002210| 75 66 66 65 72 20 77 61 | 73 20 73 68 6f 77 6e 20 |uffer wa|s shown |
|00002220| 69 6e 2e 0a 49 66 20 72 | 75 6e 6e 69 6e 67 20 65 |in..If r|unning e|
|00002230| 70 6f 63 68 2c 20 75 73 | 65 20 74 68 65 20 73 61 |poch, us|e the sa|
|00002240| 6d 65 20 73 63 72 65 65 | 6e 20 74 6f 6f 2e 22 5d |me scree|n too."]|
|00002250| 29 0a 28 66 73 65 74 20 | 27 65 64 65 62 75 67 2d |).(fset |'edebug-|
|00002260| 63 75 72 72 65 6e 74 2d | 73 63 72 65 65 6e 2d 63 |current-|screen-c|
|00002270| 6f 6e 66 69 67 75 72 61 | 74 69 6f 6e 20 23 5b 6e |onfigura|tion #[n|
|00002280| 69 6c 20 22 c0 c1 21 c2 | 20 70 1b 1c 1d 0c c6 0c |il "..!.| p......|
|00002290| 0d 5c 22 42 15 c7 c8 0d | 5c 22 c9 0c 21 88 0b 71 |.\"B....|\"..!..q|
|000022a0| 88 2b 87 22 20 5b 65 70 | 6f 63 68 3a 3a 73 63 72 |.+." [ep|och::scr|
|000022b0| 65 65 6e 2d 6c 69 73 74 | 20 75 6e 6d 61 70 70 65 |een-list| unmappe|
|000022c0| 64 20 65 70 6f 63 68 3a | 3a 67 65 74 2d 73 63 72 |d epoch:|:get-scr|
|000022d0| 65 65 6e 20 63 75 72 72 | 65 6e 74 2d 62 75 66 66 |een curr|ent-buff|
|000022e0| 65 72 20 63 75 72 72 65 | 6e 74 2d 73 63 72 65 65 |er curre|nt-scree|
|000022f0| 6e 20 73 63 72 65 65 6e | 2d 6c 69 73 74 20 64 65 |n screen|-list de|
|00002300| 6c 71 20 6d 61 70 63 61 | 72 20 23 5b 28 73 63 72 |lq mapca|r #[(scr|
|00002310| 65 65 6e 29 20 22 08 c1 | 08 21 88 c2 20 42 87 22 |een) "..|.!.. B."|
|00002320| 20 5b 73 63 72 65 65 6e | 20 65 70 6f 63 68 3a 3a | [screen| epoch::|
|00002330| 73 65 6c 65 63 74 2d 73 | 63 72 65 65 6e 20 63 75 |select-s|creen cu|
|00002340| 72 72 65 6e 74 2d 77 69 | 6e 64 6f 77 2d 63 6f 6e |rrent-wi|ndow-con|
|00002350| 66 69 67 75 72 61 74 69 | 6f 6e 5d 20 33 5d 20 65 |figurati|on] 3] e|
|00002360| 70 6f 63 68 3a 3a 73 65 | 6c 65 63 74 2d 73 63 72 |poch::se|lect-scr|
|00002370| 65 65 6e 5d 20 34 20 22 | 5c 0a 52 65 74 75 72 6e |een] 4 "|\.Return|
|00002380| 20 61 6e 20 6f 62 6a 65 | 63 74 20 72 65 63 6f 72 | an obje|ct recor|
|00002390| 64 69 6e 67 20 74 68 65 | 20 63 75 72 72 65 6e 74 |ding the| current|
|000023a0| 20 63 6f 6e 66 69 67 75 | 72 61 74 69 6f 6e 20 6f | configu|ration o|
|000023b0| 66 20 45 70 6f 63 68 20 | 73 63 72 65 65 6e 2d 6c |f Epoch |screen-l|
|000023c0| 69 73 74 2e 20 20 0a 54 | 68 65 20 6f 62 6a 65 63 |ist. .T|he objec|
|000023d0| 74 20 69 73 20 61 20 6c | 69 73 74 20 6f 66 20 70 |t is a l|ist of p|
|000023e0| 61 69 72 73 20 6f 66 20 | 74 68 65 20 66 6f 72 6d |airs of |the form|
|000023f0| 20 28 53 43 52 45 45 4e | 20 2e 20 20 43 4f 4e 46 | (SCREEN| . CONF|
|00002400| 49 47 55 52 41 54 49 4f | 4e 29 0a 77 68 65 72 65 |IGURATIO|N).where|
|00002410| 20 53 43 52 45 45 4e 20 | 68 61 73 20 77 69 6e 64 | SCREEN |has wind|
|00002420| 6f 77 2d 63 6f 6e 66 69 | 67 75 72 61 74 69 6f 6e |ow-confi|guration|
|00002430| 20 43 4f 4e 46 49 47 55 | 52 41 54 49 4f 4e 2e 20 | CONFIGU|RATION. |
|00002440| 20 54 68 65 20 63 75 72 | 72 65 6e 74 0a 73 63 72 | The cur|rent.scr|
|00002450| 65 65 6e 20 69 73 20 74 | 68 65 20 68 65 61 64 20 |een is t|he head |
|00002460| 6f 66 20 74 68 65 20 6c | 69 73 74 2e 22 5d 29 0a |of the l|ist."]).|
|00002470| 28 73 65 74 2d 65 64 65 | 62 75 67 2d 66 75 6e 63 |(set-ede|bug-func|
|00002480| 20 27 65 64 65 62 75 67 | 2d 63 75 72 72 65 6e 74 | 'edebug|-current|
|00002490| 2d 77 69 6e 64 6f 77 2d | 63 6f 6e 66 69 67 75 72 |-window-|configur|
|000024a0| 61 74 69 6f 6e 20 27 65 | 64 65 62 75 67 2d 63 75 |ation 'e|debug-cu|
|000024b0| 72 72 65 6e 74 2d 73 63 | 72 65 65 6e 2d 63 6f 6e |rrent-sc|reen-con|
|000024c0| 66 69 67 75 72 61 74 69 | 6f 6e 20 27 63 75 72 72 |figurati|on 'curr|
|000024d0| 65 6e 74 2d 77 69 6e 64 | 6f 77 2d 63 6f 6e 66 69 |ent-wind|ow-confi|
|000024e0| 67 75 72 61 74 69 6f 6e | 29 0a 28 66 73 65 74 20 |guration|).(fset |
|000024f0| 27 65 64 65 62 75 67 2d | 73 65 74 2d 73 63 72 65 |'edebug-|set-scre|
|00002500| 65 6e 2d 63 6f 6e 66 69 | 67 75 72 61 74 69 6f 6e |en-confi|guration|
|00002510| 20 23 5b 28 73 63 29 20 | 22 c0 c1 5c 6e 5c 22 88 | #[(sc) |"..\n\".|
|00002520| c3 5c 6e 40 40 21 ad 85 | c4 5c 6e 40 40 21 87 22 |.\n@@!..|.\n@@!."|
|00002530| 20 5b 6d 61 70 63 61 72 | 20 23 5b 28 73 63 72 65 | [mapcar| #[(scre|
|00002540| 65 6e 2d 63 6f 6e 66 29 | 20 22 c0 09 40 21 ad 89 |en-conf)| "..@!..|
|00002550| c2 09 40 21 88 c3 09 41 | 21 87 22 20 5b 65 70 6f |..@!...A|!." [epo|
|00002560| 63 68 3a 3a 73 63 72 65 | 65 6e 2d 70 20 73 63 72 |ch::scre|en-p scr|
|00002570| 65 65 6e 2d 63 6f 6e 66 | 20 65 70 6f 63 68 3a 3a |een-conf| epoch::|
|00002580| 73 65 6c 65 63 74 2d 73 | 63 72 65 65 6e 20 73 65 |select-s|creen se|
|00002590| 74 2d 77 69 6e 64 6f 77 | 2d 63 6f 6e 66 69 67 75 |t-window|-configu|
|000025a0| 72 61 74 69 6f 6e 5d 20 | 32 5d 20 73 63 20 65 70 |ration] |2] sc ep|
|000025b0| 6f 63 68 3a 3a 73 63 72 | 65 65 6e 2d 70 20 65 70 |och::scr|een-p ep|
|000025c0| 6f 63 68 3a 3a 73 65 6c | 65 63 74 2d 73 63 72 65 |och::sel|ect-scre|
|000025d0| 65 6e 5d 20 33 20 22 5c | 0a 53 65 74 20 74 68 65 |en] 3 "\|.Set the|
|000025e0| 20 77 69 6e 64 6f 77 2d | 63 6f 6e 66 69 67 75 72 | window-|configur|
|000025f0| 61 74 69 6f 6e 20 66 6f | 72 20 61 6c 6c 20 74 68 |ation fo|r all th|
|00002600| 65 20 73 63 72 65 65 6e | 73 20 69 6e 20 53 43 2e |e screen|s in SC.|
|00002610| 0a 53 65 74 20 74 68 65 | 20 63 75 72 72 65 6e 74 |.Set the| current|
|00002620| 20 73 63 72 65 65 6e 20 | 74 6f 20 62 65 20 74 68 | screen |to be th|
|00002630| 65 20 68 65 61 64 20 6f | 66 20 53 43 2e 22 5d 29 |e head o|f SC."])|
|00002640| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |.(byte-c|ode "...|
|00002650| c3 23 88 c0 c4 c5 c6 23 | 88 c7 c8 4d 88 c0 c9 c7 |.#.....#|...M....|
|00002660| ca 23 88 cb cc 4d 88 c0 | cd cb ce 23 88 cf d0 21 |.#...M..|...#...!|
|00002670| ac 83 d1 16 10 cf d2 21 | ac 83 d3 16 12 cf d4 21 |.......!|.......!|
|00002680| ac 83 d5 16 14 cf d6 21 | ac 83 d7 16 16 cf d8 21 |.......!|.......!|
|00002690| ac 83 d9 16 18 c0 87 22 | 20 5b 73 65 74 2d 65 64 |......."| [set-ed|
|000026a0| 65 62 75 67 2d 66 75 6e | 63 20 65 64 65 62 75 67 |ebug-fun|c edebug|
|000026b0| 2d 73 65 74 2d 77 69 6e | 64 6f 77 2d 63 6f 6e 66 |-set-win|dow-conf|
|000026c0| 69 67 75 72 61 74 69 6f | 6e 20 65 64 65 62 75 67 |iguratio|n edebug|
|000026d0| 2d 73 65 74 2d 73 63 72 | 65 65 6e 2d 63 6f 6e 66 |-set-scr|een-conf|
|000026e0| 69 67 75 72 61 74 69 6f | 6e 20 73 65 74 2d 77 69 |iguratio|n set-wi|
|000026f0| 6e 64 6f 77 2d 63 6f 6e | 66 69 67 75 72 61 74 69 |ndow-con|figurati|
|00002700| 6f 6e 20 65 64 65 62 75 | 67 2d 67 65 74 2d 62 75 |on edebu|g-get-bu|
|00002710| 66 66 65 72 2d 77 69 6e | 64 6f 77 20 65 70 6f 63 |ffer-win|dow epoc|
|00002720| 68 3a 3a 67 65 74 2d 62 | 75 66 66 65 72 2d 77 69 |h::get-b|uffer-wi|
|00002730| 6e 64 6f 77 20 67 65 74 | 2d 62 75 66 66 65 72 2d |ndow get|-buffer-|
|00002740| 77 69 6e 64 6f 77 20 65 | 64 65 62 75 67 2d 65 70 |window e|debug-ep|
|00002750| 6f 63 68 2d 73 69 74 2d | 66 6f 72 20 23 5b 28 61 |och-sit-|for #[(a|
|00002760| 72 67 29 20 22 c0 20 88 | c1 5c 6e 21 87 22 20 5b |rg) ". .|.\n!." [|
|00002770| 65 70 6f 63 68 3a 3a 64 | 69 73 70 61 74 63 68 2d |epoch::d|ispatch-|
|00002780| 65 76 65 6e 74 73 20 73 | 69 74 2d 66 6f 72 20 61 |events s|it-for a|
|00002790| 72 67 5d 20 32 5d 20 65 | 64 65 62 75 67 2d 73 69 |rg] 2] e|debug-si|
|000027a0| 74 2d 66 6f 72 20 73 69 | 74 2d 66 6f 72 20 65 64 |t-for si|t-for ed|
|000027b0| 65 62 75 67 2d 65 70 6f | 63 68 2d 69 6e 70 75 74 |ebug-epo|ch-input|
|000027c0| 2d 70 65 6e 64 69 6e 67 | 2d 70 20 23 5b 6e 69 6c |-pending|-p #[nil|
|000027d0| 20 22 c0 20 88 c1 20 87 | 22 20 5b 65 70 6f 63 68 | ". .. .|" [epoch|
|000027e0| 3a 3a 64 69 73 70 61 74 | 63 68 2d 65 76 65 6e 74 |::dispat|ch-event|
|000027f0| 73 20 69 6e 70 75 74 2d | 70 65 6e 64 69 6e 67 2d |s input-|pending-|
|00002800| 70 5d 20 31 5d 20 65 64 | 65 62 75 67 2d 69 6e 70 |p] 1] ed|ebug-inp|
|00002810| 75 74 2d 70 65 6e 64 69 | 6e 67 2d 70 20 69 6e 70 |ut-pendi|ng-p inp|
|00002820| 75 74 2d 70 65 6e 64 69 | 6e 67 2d 70 20 62 6f 75 |ut-pendi|ng-p bou|
|00002830| 6e 64 70 20 65 64 65 62 | 75 67 2d 70 72 69 6e 31 |ndp edeb|ug-prin1|
|00002840| 20 70 72 69 6e 31 20 65 | 64 65 62 75 67 2d 70 72 | prin1 e|debug-pr|
|00002850| 69 6e 74 20 70 72 69 6e | 74 20 65 64 65 62 75 67 |int prin|t edebug|
|00002860| 2d 70 72 69 6e 31 2d 74 | 6f 2d 73 74 72 69 6e 67 |-prin1-t|o-string|
|00002870| 20 70 72 69 6e 31 2d 74 | 6f 2d 73 74 72 69 6e 67 | prin1-t|o-string|
|00002880| 20 65 64 65 62 75 67 2d | 66 6f 72 6d 61 74 20 66 | edebug-|format f|
|00002890| 6f 72 6d 61 74 20 65 64 | 65 62 75 67 2d 6d 65 73 |ormat ed|ebug-mes|
|000028a0| 73 61 67 65 20 6d 65 73 | 73 61 67 65 5d 20 34 29 |sage mes|sage] 4)|
|000028b0| 0a 28 66 73 65 74 20 27 | 65 64 65 62 75 67 2d 69 |.(fset '|edebug-i|
|000028c0| 6e 73 74 61 6c 6c 2d 63 | 75 73 74 6f 6d 2d 70 72 |nstall-c|ustom-pr|
|000028d0| 69 6e 74 2d 66 75 6e 63 | 73 20 23 5b 6e 69 6c 20 |int-func|s #[nil |
|000028e0| 22 c0 c1 21 88 c2 13 c4 | 15 c6 16 07 c8 16 09 ca |"..!....|........|
|000028f0| 89 16 0b 87 22 20 5b 72 | 65 71 75 69 72 65 20 63 |...." [r|equire c|
|00002900| 75 73 74 2d 70 72 69 6e | 74 20 63 75 73 74 6f 6d |ust-prin|t custom|
|00002910| 2d 70 72 69 6e 31 20 65 | 64 65 62 75 67 2d 70 72 |-prin1 e|debug-pr|
|00002920| 69 6e 31 20 63 75 73 74 | 6f 6d 2d 70 72 69 6e 74 |in1 cust|om-print|
|00002930| 20 65 64 65 62 75 67 2d | 70 72 69 6e 74 20 63 75 | edebug-|print cu|
|00002940| 73 74 6f 6d 2d 70 72 69 | 6e 31 2d 74 6f 2d 73 74 |stom-pri|n1-to-st|
|00002950| 72 69 6e 67 20 65 64 65 | 62 75 67 2d 70 72 69 6e |ring ede|bug-prin|
|00002960| 31 2d 74 6f 2d 73 74 72 | 69 6e 67 20 63 75 73 74 |1-to-str|ing cust|
|00002970| 6f 6d 2d 66 6f 72 6d 61 | 74 20 65 64 65 62 75 67 |om-forma|t edebug|
|00002980| 2d 66 6f 72 6d 61 74 20 | 63 75 73 74 6f 6d 2d 6d |-format |custom-m|
|00002990| 65 73 73 61 67 65 20 65 | 64 65 62 75 67 2d 6d 65 |essage e|debug-me|
|000029a0| 73 73 61 67 65 5d 20 32 | 20 22 5c 0a 52 65 70 6c |ssage] 2| "\.Repl|
|000029b0| 61 63 65 20 65 64 65 62 | 75 67 20 70 72 69 6e 74 |ace edeb|ug print|
|000029c0| 20 66 75 6e 63 74 69 6f | 6e 73 20 77 69 74 68 20 | functio|ns with |
|000029d0| 63 75 73 74 6f 6d 20 76 | 65 72 73 69 6f 6e 73 2e |custom v|ersions.|
|000029e0| 0a 4d 6f 64 69 66 79 69 | 6e 67 20 74 68 65 20 63 |.Modifyi|ng the c|
|000029f0| 75 73 74 6f 6d 20 70 72 | 69 6e 74 20 66 75 6e 63 |ustom pr|int func|
|00002a00| 74 69 6f 6e 73 2c 20 6f | 72 20 63 68 61 6e 67 69 |tions, o|r changi|
|00002a10| 6e 67 20 70 72 69 6e 74 | 2d 6c 65 6e 67 74 68 2c |ng print|-length,|
|00002a20| 0a 70 72 69 6e 74 2d 6c | 65 76 65 6c 2c 20 70 72 |.print-l|evel, pr|
|00002a30| 69 6e 74 2d 63 69 72 63 | 6c 65 2c 20 63 75 73 74 |int-circ|le, cust|
|00002a40| 6f 6d 2d 70 72 69 6e 74 | 2d 6c 69 73 74 20 6f 72 |om-print|-list or|
|00002a50| 20 63 75 73 74 6f 6d 2d | 70 72 69 6e 74 2d 76 65 | custom-|print-ve|
|00002a60| 63 74 6f 72 0a 68 61 76 | 65 20 69 6d 6d 65 64 69 |ctor.hav|e immedi|
|00002a70| 61 74 65 20 65 66 66 65 | 63 74 2e 22 20 6e 69 6c |ate effe|ct." nil|
|00002a80| 5d 29 0a 28 66 73 65 74 | 20 27 65 64 65 62 75 67 |]).(fset| 'edebug|
|00002a90| 2d 72 65 73 65 74 2d 70 | 72 69 6e 74 2d 66 75 6e |-reset-p|rint-fun|
|00002aa0| 63 73 20 27 65 64 65 62 | 75 67 2d 75 6e 69 6e 73 |cs 'edeb|ug-unins|
|00002ab0| 74 61 6c 6c 2d 63 75 73 | 74 6f 6d 2d 70 72 69 6e |tall-cus|tom-prin|
|00002ac0| 74 2d 66 75 6e 63 73 29 | 0a 28 66 73 65 74 20 27 |t-funcs)|.(fset '|
|00002ad0| 65 64 65 62 75 67 2d 75 | 6e 69 6e 73 74 61 6c 6c |edebug-u|ninstall|
|00002ae0| 2d 63 75 73 74 6f 6d 2d | 70 72 69 6e 74 2d 66 75 |-custom-|print-fu|
|00002af0| 6e 63 73 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 88 c2 |ncs #[ni|l "..!..|
|00002b00| 13 c4 15 c6 16 07 c8 16 | 09 ca 89 16 0b 87 22 20 |........|......" |
|00002b10| 5b 72 65 71 75 69 72 65 | 20 63 75 73 74 2d 70 72 |[require| cust-pr|
|00002b20| 69 6e 74 20 43 50 3a 3a | 69 6e 74 65 72 6e 61 6c |int CP::|internal|
|00002b30| 2d 70 72 69 6e 31 20 65 | 64 65 62 75 67 2d 70 72 |-prin1 e|debug-pr|
|00002b40| 69 6e 31 20 43 50 3a 3a | 69 6e 74 65 72 6e 61 6c |in1 CP::|internal|
|00002b50| 2d 70 72 69 6e 74 20 65 | 64 65 62 75 67 2d 70 72 |-print e|debug-pr|
|00002b60| 69 6e 74 20 43 50 3a 3a | 69 6e 74 65 72 6e 61 6c |int CP::|internal|
|00002b70| 2d 70 72 69 6e 31 2d 74 | 6f 2d 73 74 72 69 6e 67 |-prin1-t|o-string|
|00002b80| 20 65 64 65 62 75 67 2d | 70 72 69 6e 31 2d 74 6f | edebug-|prin1-to|
|00002b90| 2d 73 74 72 69 6e 67 20 | 43 50 3a 3a 69 6e 74 65 |-string |CP::inte|
|00002ba0| 72 6e 61 6c 2d 66 6f 72 | 6d 61 74 20 65 64 65 62 |rnal-for|mat edeb|
|00002bb0| 75 67 2d 66 6f 72 6d 61 | 74 20 43 50 3a 3a 69 6e |ug-forma|t CP::in|
|00002bc0| 74 65 72 6e 61 6c 2d 6d | 65 73 73 61 67 65 20 65 |ternal-m|essage e|
|00002bd0| 64 65 62 75 67 2d 6d 65 | 73 73 61 67 65 5d 20 32 |debug-me|ssage] 2|
|00002be0| 20 22 5c 0a 52 65 70 6c | 61 63 65 20 65 64 65 62 | "\.Repl|ace edeb|
|00002bf0| 75 67 20 63 75 73 74 6f | 6d 20 70 72 69 6e 74 20 |ug custo|m print |
|00002c00| 66 75 6e 63 74 69 6f 6e | 73 20 77 69 74 68 20 69 |function|s with i|
|00002c10| 6e 74 65 72 6e 61 6c 20 | 76 65 72 73 69 6f 6e 73 |nternal |versions|
|00002c20| 2e 22 20 6e 69 6c 5d 29 | 0a 28 62 79 74 65 2d 63 |." nil])|.(byte-c|
|00002c30| 6f 64 65 20 22 c0 c1 4d | 88 c2 c3 4d 88 c4 c5 4d |ode "..M|...M...M|
|00002c40| 88 c6 c7 4d 88 c8 c9 4d | 88 ca cb 21 ac 85 cb cc |...M...M|...!....|
|00002c50| 4b 4d 88 ca cd 21 ac 85 | cd ce 4b 4d 88 ca cf 21 |KM...!..|..KM...!|
|00002c60| ac 8d cf ca d0 21 ab 84 | d0 4b aa 81 d0 4d 88 ca |.....!..|.K...M..|
|00002c70| d1 21 ac 85 d1 d2 4b 4d | 88 d3 d4 4d 88 d5 d6 4d |.!....KM|...M...M|
|00002c80| 88 d7 d8 4d 87 22 20 5b | 65 64 65 62 75 67 2d 70 |...M." [|edebug-p|
|00002c90| 72 69 6e 31 20 23 5b 28 | 26 72 65 73 74 20 61 72 |rin1 #[(|&rest ar|
|00002ca0| 67 73 29 20 22 c0 19 c2 | 0b 0c 5c 22 29 87 22 20 |gs) "...|..\")." |
|00002cb0| 5b 6e 69 6c 20 70 72 69 | 6e 74 2d 72 65 61 64 61 |[nil pri|nt-reada|
|00002cc0| 62 6c 79 20 61 70 70 6c | 79 20 65 64 65 62 75 67 |bly appl|y edebug|
|00002cd0| 2d 70 72 69 6e 31 20 61 | 72 67 73 5d 20 33 5d 20 |-prin1 a|rgs] 3] |
|00002ce0| 65 64 65 62 75 67 2d 70 | 72 69 6e 74 20 23 5b 28 |edebug-p|rint #[(|
|00002cf0| 26 72 65 73 74 20 61 72 | 67 73 29 20 22 c0 19 c2 |&rest ar|gs) "...|
|00002d00| 0b 0c 5c 22 29 87 22 20 | 5b 6e 69 6c 20 70 72 69 |..\")." |[nil pri|
|00002d10| 6e 74 2d 72 65 61 64 61 | 62 6c 79 20 61 70 70 6c |nt-reada|bly appl|
|00002d20| 79 20 65 64 65 62 75 67 | 2d 70 72 69 6e 74 20 61 |y edebug|-print a|
|00002d30| 72 67 73 5d 20 33 5d 20 | 65 64 65 62 75 67 2d 70 |rgs] 3] |edebug-p|
|00002d40| 72 69 6e 31 2d 74 6f 2d | 73 74 72 69 6e 67 20 23 |rin1-to-|string #|
|00002d50| 5b 28 26 72 65 73 74 20 | 61 72 67 73 29 20 22 c0 |[(&rest |args) ".|
|00002d60| 19 c2 0b 0c 5c 22 29 87 | 22 20 5b 6e 69 6c 20 70 |....\").|" [nil p|
|00002d70| 72 69 6e 74 2d 72 65 61 | 64 61 62 6c 79 20 61 70 |rint-rea|dably ap|
|00002d80| 70 6c 79 20 65 64 65 62 | 75 67 2d 70 72 69 6e 31 |ply edeb|ug-prin1|
|00002d90| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 61 72 67 73 5d |-to-stri|ng args]|
|00002da0| 20 33 5d 20 65 64 65 62 | 75 67 2d 66 6f 72 6d 61 | 3] edeb|ug-forma|
|00002db0| 74 20 23 5b 28 26 72 65 | 73 74 20 61 72 67 73 29 |t #[(&re|st args)|
|00002dc0| 20 22 c0 19 c2 0b 0c 5c | 22 29 87 22 20 5b 6e 69 | ".....\|")." [ni|
|00002dd0| 6c 20 70 72 69 6e 74 2d | 72 65 61 64 61 62 6c 79 |l print-|readably|
|00002de0| 20 61 70 70 6c 79 20 65 | 64 65 62 75 67 2d 66 6f | apply e|debug-fo|
|00002df0| 72 6d 61 74 20 61 72 67 | 73 5d 20 33 5d 20 65 64 |rmat arg|s] 3] ed|
|00002e00| 65 62 75 67 2d 6d 65 73 | 73 61 67 65 20 23 5b 28 |ebug-mes|sage #[(|
|00002e10| 26 72 65 73 74 20 61 72 | 67 73 29 20 22 c0 19 c2 |&rest ar|gs) "...|
|00002e20| 0b 0c 5c 22 29 87 22 20 | 5b 6e 69 6c 20 70 72 69 |..\")." |[nil pri|
|00002e30| 6e 74 2d 72 65 61 64 61 | 62 6c 79 20 61 70 70 6c |nt-reada|bly appl|
|00002e40| 79 20 65 64 65 62 75 67 | 2d 6d 65 73 73 61 67 65 |y edebug|-message|
|00002e50| 20 61 72 67 73 5d 20 33 | 5d 20 66 62 6f 75 6e 64 | args] 3|] fbound|
|00002e60| 70 20 65 64 65 62 75 67 | 2d 6f 72 69 67 69 6e 61 |p edebug|-origina|
|00002e70| 6c 2d 65 76 61 6c 2d 64 | 65 66 75 6e 20 65 76 61 |l-eval-d|efun eva|
|00002e80| 6c 2d 64 65 66 75 6e 20 | 65 64 65 62 75 67 2d 6f |l-defun |edebug-o|
|00002e90| 72 69 67 69 6e 61 6c 2d | 65 76 61 6c 2d 72 65 67 |riginal-|eval-reg|
|00002ea0| 69 6f 6e 20 65 76 61 6c | 2d 72 65 67 69 6f 6e 20 |ion eval|-region |
|00002eb0| 65 64 65 62 75 67 2d 6f | 72 69 67 69 6e 61 6c 2d |edebug-o|riginal-|
|00002ec0| 65 76 61 6c 2d 62 75 66 | 66 65 72 20 65 76 61 6c |eval-buf|fer eval|
|00002ed0| 2d 62 75 66 66 65 72 20 | 65 64 65 62 75 67 2d 6f |-buffer |edebug-o|
|00002ee0| 72 69 67 69 6e 61 6c 2d | 65 76 61 6c 2d 63 75 72 |riginal-|eval-cur|
|00002ef0| 72 65 6e 74 2d 62 75 66 | 66 65 72 20 65 76 61 6c |rent-buf|fer eval|
|00002f00| 2d 63 75 72 72 65 6e 74 | 2d 62 75 66 66 65 72 20 |-current|-buffer |
|00002f10| 65 64 65 62 75 67 2d 69 | 6e 73 74 61 6c 6c 2d 65 |edebug-i|nstall-e|
|00002f20| 76 61 6c 2d 66 75 6e 63 | 74 69 6f 6e 73 20 23 5b |val-func|tions #[|
|00002f30| 6e 69 6c 20 22 c0 c1 4d | 88 c2 c3 4d 88 c4 c5 4d |nil "..M|...M...M|
|00002f40| 88 c6 c7 4d 87 22 20 5b | 65 76 61 6c 2d 64 65 66 |...M." [|eval-def|
|00002f50| 75 6e 20 65 64 65 62 75 | 67 2d 65 76 61 6c 2d 64 |un edebu|g-eval-d|
|00002f60| 65 66 75 6e 20 65 76 61 | 6c 2d 72 65 67 69 6f 6e |efun eva|l-region|
|00002f70| 20 65 64 65 62 75 67 2d | 65 76 61 6c 2d 72 65 67 | edebug-|eval-reg|
|00002f80| 69 6f 6e 20 65 76 61 6c | 2d 62 75 66 66 65 72 20 |ion eval|-buffer |
|00002f90| 65 64 65 62 75 67 2d 65 | 76 61 6c 2d 62 75 66 66 |edebug-e|val-buff|
|00002fa0| 65 72 20 65 76 61 6c 2d | 63 75 72 72 65 6e 74 2d |er eval-|current-|
|00002fb0| 62 75 66 66 65 72 20 65 | 64 65 62 75 67 2d 65 76 |buffer e|debug-ev|
|00002fc0| 61 6c 2d 63 75 72 72 65 | 6e 74 2d 62 75 66 66 65 |al-curre|nt-buffe|
|00002fd0| 72 5d 20 32 20 6e 69 6c | 20 6e 69 6c 5d 20 65 64 |r] 2 nil| nil] ed|
|00002fe0| 65 62 75 67 2d 75 6e 69 | 6e 73 74 61 6c 6c 2d 65 |ebug-uni|nstall-e|
|00002ff0| 76 61 6c 2d 66 75 6e 63 | 74 69 6f 6e 73 20 23 5b |val-func|tions #[|
|00003000| 6e 69 6c 20 22 c0 c1 4b | 4d 88 c2 c3 4b 4d 88 c4 |nil "..K|M...KM..|
|00003010| c5 4b 4d 88 c6 c7 4b 4d | 87 22 20 5b 65 76 61 6c |.KM...KM|." [eval|
|00003020| 2d 64 65 66 75 6e 20 65 | 64 65 62 75 67 2d 6f 72 |-defun e|debug-or|
|00003030| 69 67 69 6e 61 6c 2d 65 | 76 61 6c 2d 64 65 66 75 |iginal-e|val-defu|
|00003040| 6e 20 65 76 61 6c 2d 72 | 65 67 69 6f 6e 20 65 64 |n eval-r|egion ed|
|00003050| 65 62 75 67 2d 6f 72 69 | 67 69 6e 61 6c 2d 65 76 |ebug-ori|ginal-ev|
|00003060| 61 6c 2d 72 65 67 69 6f | 6e 20 65 76 61 6c 2d 62 |al-regio|n eval-b|
|00003070| 75 66 66 65 72 20 65 64 | 65 62 75 67 2d 6f 72 69 |uffer ed|ebug-ori|
|00003080| 67 69 6e 61 6c 2d 65 76 | 61 6c 2d 62 75 66 66 65 |ginal-ev|al-buffe|
|00003090| 72 20 65 76 61 6c 2d 63 | 75 72 72 65 6e 74 2d 62 |r eval-c|urrent-b|
|000030a0| 75 66 66 65 72 20 65 64 | 65 62 75 67 2d 6f 72 69 |uffer ed|ebug-ori|
|000030b0| 67 69 6e 61 6c 2d 65 76 | 61 6c 2d 63 75 72 72 65 |ginal-ev|al-curre|
|000030c0| 6e 74 2d 62 75 66 66 65 | 72 5d 20 32 20 6e 69 6c |nt-buffe|r] 2 nil|
|000030d0| 20 6e 69 6c 5d 20 65 64 | 65 62 75 67 2d 61 6c 6c | nil] ed|ebug-all|
|000030e0| 2d 64 65 66 75 6e 73 20 | 65 64 65 62 75 67 2d 61 |-defuns |edebug-a|
|000030f0| 6c 6c 2d 64 65 66 73 5d | 20 33 29 0a 28 66 73 65 |ll-defs]| 3).(fse|
|00003100| 74 20 27 65 64 65 62 75 | 67 2d 61 6c 6c 2d 64 65 |t 'edebu|g-all-de|
|00003110| 66 73 20 23 5b 6e 69 6c | 20 22 08 3f 10 c1 c2 08 |fs #[nil| ".?....|
|00003120| ab 83 c3 aa 81 c4 5c 22 | 87 22 20 5b 65 64 65 62 |......\"|." [edeb|
|00003130| 75 67 2d 61 6c 6c 2d 64 | 65 66 73 20 6d 65 73 73 |ug-all-d|efs mess|
|00003140| 61 67 65 20 22 45 64 65 | 62 75 67 67 69 6e 67 20 |age "Ede|bugging |
|00003150| 61 6c 6c 20 64 65 66 69 | 6e 69 74 69 6f 6e 73 20 |all defi|nitions |
|00003160| 69 73 20 25 73 2e 22 20 | 22 6f 6e 22 20 22 6f 66 |is %s." |"on" "of|
|00003170| 66 22 5d 20 33 20 22 5c | 0a 54 6f 67 67 6c 65 20 |f"] 3 "\|.Toggle |
|00003180| 65 64 65 62 75 67 67 69 | 6e 67 20 6f 66 20 61 6c |edebuggi|ng of al|
|00003190| 6c 20 64 65 66 69 6e 69 | 74 69 6f 6e 73 2c 0a 6e |l defini|tions,.n|
|000031a0| 6f 74 20 69 6e 63 6c 75 | 64 69 6e 67 20 74 68 6f |ot inclu|ding tho|
|000031b0| 73 65 20 65 76 61 6c 75 | 61 74 65 64 20 69 6e 20 |se evalu|ated in |
|000031c0| 74 68 65 20 6d 69 6e 69 | 62 75 66 66 65 72 2c 20 |the mini|buffer, |
|000031d0| 6f 72 20 64 75 72 69 6e | 67 20 6c 6f 61 64 2e 22 |or durin|g load."|
|000031e0| 20 6e 69 6c 5d 29 0a 28 | 66 73 65 74 20 27 65 64 | nil]).(|fset 'ed|
|000031f0| 65 62 75 67 2d 61 6c 6c | 2d 66 6f 72 6d 73 20 23 |ebug-all|-forms #|
|00003200| 5b 6e 69 6c 20 22 08 3f | 10 c1 c2 08 ab 83 c3 aa |[nil ".?|........|
|00003210| 81 c4 5c 22 87 22 20 5b | 65 64 65 62 75 67 2d 61 |..\"." [|edebug-a|
|00003220| 6c 6c 2d 66 6f 72 6d 73 | 20 6d 65 73 73 61 67 65 |ll-forms| message|
|00003230| 20 22 45 64 65 62 75 67 | 67 69 6e 67 20 61 6c 6c | "Edebug|ging all|
|00003240| 20 66 6f 72 6d 73 20 69 | 73 20 25 73 2e 22 20 22 | forms i|s %s." "|
|00003250| 6f 6e 22 20 22 6f 66 66 | 22 5d 20 33 20 22 5c 0a |on" "off|"] 3 "\.|
|00003260| 54 6f 67 67 6c 65 20 65 | 64 65 62 75 67 67 69 6e |Toggle e|debuggin|
|00003270| 67 20 6f 66 20 61 6c 6c | 20 66 6f 72 6d 73 2c 0a |g of all| forms,.|
|00003280| 6e 6f 74 20 69 6e 63 6c | 75 64 69 6e 67 20 74 68 |not incl|uding th|
|00003290| 6f 73 65 20 65 76 61 6c | 75 61 74 65 64 20 69 6e |ose eval|uated in|
|000032a0| 20 74 68 65 20 6d 69 6e | 69 62 75 66 66 65 72 2c | the min|ibuffer,|
|000032b0| 20 6f 72 20 64 75 72 69 | 6e 67 20 6c 6f 61 64 2e | or duri|ng load.|
|000032c0| 22 20 6e 69 6c 5d 29 0a | 28 66 73 65 74 20 27 65 |" nil]).|(fset 'e|
|000032d0| 64 65 62 75 67 2d 65 76 | 61 6c 2d 64 65 66 75 6e |debug-ev|al-defun|
|000032e0| 20 23 5b 28 65 64 65 62 | 75 67 2d 69 74 29 20 22 | #[(edeb|ug-it) "|
|000032f0| 08 3f 09 3f 3d 3f 19 c2 | c3 21 29 87 22 20 5b 65 |.?.?=?..|.!)." [e|
|00003300| 64 65 62 75 67 2d 69 74 | 20 65 64 65 62 75 67 2d |debug-it| edebug-|
|00003310| 61 6c 6c 2d 64 65 66 73 | 20 65 64 65 62 75 67 2d |all-defs| edebug-|
|00003320| 6f 72 69 67 69 6e 61 6c | 2d 65 76 61 6c 2d 64 65 |original|-eval-de|
|00003330| 66 75 6e 20 6e 69 6c 5d | 20 32 20 22 5c 0a 45 76 |fun nil]| 2 "\.Ev|
|00003340| 61 6c 75 61 74 65 20 74 | 68 65 20 74 6f 70 2d 6c |aluate t|he top-l|
|00003350| 65 76 65 6c 20 66 6f 72 | 6d 20 74 68 61 74 20 70 |evel for|m that p|
|00003360| 6f 69 6e 74 20 69 73 20 | 69 6e 20 6f 72 20 62 65 |oint is |in or be|
|00003370| 66 6f 72 65 2e 0a 50 72 | 69 6e 74 20 76 61 6c 75 |fore..Pr|int valu|
|00003380| 65 20 69 6e 20 6d 69 6e | 69 62 75 66 66 65 72 2e |e in min|ibuffer.|
|00003390| 0a 0a 54 68 69 73 20 76 | 65 72 73 69 6f 6e 2c 20 |..This v|ersion, |
|000033a0| 66 72 6f 6d 20 65 64 65 | 62 75 67 2c 20 68 61 73 |from ede|bug, has|
|000033b0| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 64 | the fol|lowing d|
|000033c0| 69 66 66 65 72 65 6e 63 | 65 73 3a 20 49 66 20 74 |ifferenc|es: If t|
|000033d0| 68 65 0a 70 72 65 66 69 | 78 20 61 72 67 75 6d 65 |he.prefi|x argume|
|000033e0| 6e 74 20 69 73 20 74 68 | 65 20 73 61 6d 65 20 61 |nt is th|e same a|
|000033f0| 73 20 65 64 65 62 75 67 | 2d 61 6c 6c 2d 64 65 66 |s edebug|-all-def|
|00003400| 73 20 28 6e 69 6c 20 6f | 72 20 6e 6f 6e 2d 6e 69 |s (nil o|r non-ni|
|00003410| 6c 29 2c 0a 65 76 61 6c | 75 61 74 65 20 6e 6f 72 |l),.eval|uate nor|
|00003420| 6d 61 6c 6c 79 3b 20 6f | 74 68 65 72 77 69 73 65 |mally; o|therwise|
|00003430| 20 63 6f 64 65 20 69 73 | 20 69 6e 73 74 72 75 6d | code is| instrum|
|00003440| 65 6e 74 65 64 2e 20 20 | 41 6c 73 6f 2c 20 74 68 |ented. |Also, th|
|00003450| 65 20 76 61 6c 75 65 0a | 70 72 69 6e 74 65 64 20 |e value.|printed |
|00003460| 69 73 20 5c 22 65 64 65 | 62 75 67 3a 20 3c 66 75 |is \"ede|bug: <fu|
|00003470| 6e 63 74 69 6f 6e 20 6e | 61 6d 65 3e 5c 22 2e 22 |nction n|ame>\"."|
|00003480| 20 22 50 22 5d 29 0a 28 | 66 73 65 74 20 27 65 64 | "P"]).(|fset 'ed|
|00003490| 65 62 75 67 2d 65 76 61 | 6c 2d 72 65 67 69 6f 6e |ebug-eva|l-region|
|000034a0| 20 23 5b 28 65 64 65 62 | 75 67 2d 65 2d 72 2d 73 | #[(edeb|ug-e-r-s|
|000034b0| 74 61 72 74 20 65 64 65 | 62 75 67 2d 65 2d 72 2d |tart ede|bug-e-r-|
|000034c0| 65 6e 64 20 26 6f 70 74 | 69 6f 6e 61 6c 20 65 64 |end &opt|ional ed|
|000034d0| 65 62 75 67 2d 65 2d 72 | 2d 6f 75 74 70 75 74 29 |ebug-e-r|-output)|
|000034e0| 20 22 60 70 70 c0 20 09 | c2 93 c2 89 1b 1c 1d 1e | "`pp. .|........|
|000034f0| 06 1e 07 1e 08 0e 09 62 | 88 ca 20 88 60 0d 57 ab |.......b|.. .`.W.|
|00003500| ce cb 0e 0c 21 14 70 1e | 0d 0e 06 71 88 ce 0c 21 |....!.p.|...q...!|
|00003510| 13 70 16 06 0e 0d 71 88 | 29 0e 0f ab a6 0e 0f ae |.p....q.|).......|
|00003520| 81 d0 1e 11 0b 0e 12 42 | 16 12 0e 11 d0 3d ab 86 |.......B|.....=..|
|00003530| d3 0b 21 88 aa 8c d4 d5 | 21 88 d3 0b 21 88 d4 d5 |..!.....|!...!...|
|00003540| 21 88 29 0d 60 5d ca 20 | 88 60 5e 62 88 aa 2d 0e |!.).`]. |.`^b..-.|
|00003550| 0f ac 88 0e 07 71 88 0e | 08 62 88 2e 06 c2 87 22 |.....q..|.b....."|
|00003560| 20 5b 6d 61 6b 65 2d 6d | 61 72 6b 65 72 20 65 64 | [make-m|arker ed|
|00003570| 65 62 75 67 2d 65 2d 72 | 2d 65 6e 64 20 6e 69 6c |ebug-e-r|-end nil|
|00003580| 20 65 64 65 62 75 67 2d | 65 2d 72 2d 76 61 6c 20 | edebug-|e-r-val |
|00003590| 65 64 65 62 75 67 2d 65 | 2d 72 2d 66 6f 72 6d 20 |edebug-e|-r-form |
|000035a0| 65 64 65 62 75 67 2d 65 | 2d 72 2d 65 6e 64 2d 6d |edebug-e|-r-end-m|
|000035b0| 61 72 6b 65 72 20 65 64 | 65 62 75 67 2d 65 2d 72 |arker ed|ebug-e-r|
|000035c0| 2d 69 6e 73 69 64 65 2d | 62 75 66 20 65 64 65 62 |-inside-|buf edeb|
|000035d0| 75 67 2d 65 2d 72 2d 62 | 75 66 20 65 64 65 62 75 |ug-e-r-b|uf edebu|
|000035e0| 67 2d 65 2d 72 2d 70 6e | 74 20 65 64 65 62 75 67 |g-e-r-pn|t edebug|
|000035f0| 2d 65 2d 72 2d 73 74 61 | 72 74 20 65 64 65 62 75 |-e-r-sta|rt edebu|
|00003600| 67 2d 73 6b 69 70 2d 77 | 68 69 74 65 73 70 61 63 |g-skip-w|hitespac|
|00003610| 65 20 65 64 65 62 75 67 | 2d 72 65 61 64 2d 61 6e |e edebug|-read-an|
|00003620| 64 2d 6d 61 79 62 65 2d | 77 72 61 70 2d 66 6f 72 |d-maybe-|wrap-for|
|00003630| 6d 20 65 64 65 62 75 67 | 2d 61 6c 6c 2d 64 65 66 |m edebug|-all-def|
|00003640| 73 20 65 64 65 62 75 67 | 2d 65 2d 72 2d 63 75 72 |s edebug|-e-r-cur|
|00003650| 72 65 6e 74 2d 62 75 66 | 66 65 72 20 65 76 61 6c |rent-buf|fer eval|
|00003660| 20 65 64 65 62 75 67 2d | 65 2d 72 2d 6f 75 74 70 | edebug-|e-r-outp|
|00003670| 75 74 20 74 20 73 74 61 | 6e 64 61 72 64 2d 6f 75 |ut t sta|ndard-ou|
|00003680| 74 70 75 74 20 76 61 6c | 75 65 73 20 70 72 69 6e |tput val|ues prin|
|00003690| 31 20 70 72 69 6e 63 20 | 22 5c 6e 22 5d 20 36 20 |1 princ |"\n"] 6 |
|000036a0| 22 5c 0a 45 78 65 63 75 | 74 65 20 74 68 65 20 72 |"\.Execu|te the r|
|000036b0| 65 67 69 6f 6e 20 61 73 | 20 4c 69 73 70 20 63 6f |egion as| Lisp co|
|000036c0| 64 65 2e 0a 57 68 65 6e | 20 63 61 6c 6c 65 64 20 |de..When| called |
|000036d0| 66 72 6f 6d 20 70 72 6f | 67 72 61 6d 73 2c 20 65 |from pro|grams, e|
|000036e0| 78 70 65 63 74 73 20 74 | 77 6f 20 61 72 67 75 6d |xpects t|wo argum|
|000036f0| 65 6e 74 73 2c 0a 67 69 | 76 69 6e 67 20 73 74 61 |ents,.gi|ving sta|
|00003700| 72 74 69 6e 67 20 61 6e | 64 20 65 6e 64 69 6e 67 |rting an|d ending|
|00003710| 20 69 6e 64 69 63 65 73 | 20 69 6e 20 74 68 65 20 | indices| in the |
|00003720| 63 75 72 72 65 6e 74 20 | 62 75 66 66 65 72 0a 6f |current |buffer.o|
|00003730| 66 20 74 68 65 20 74 65 | 78 74 20 74 6f 20 62 65 |f the te|xt to be|
|00003740| 20 65 78 65 63 75 74 65 | 64 2e 0a 50 72 6f 67 72 | execute|d..Progr|
|00003750| 61 6d 73 20 63 61 6e 20 | 70 61 73 73 20 74 68 69 |ams can |pass thi|
|00003760| 72 64 20 61 72 67 75 6d | 65 6e 74 20 50 52 49 4e |rd argum|ent PRIN|
|00003770| 54 46 4c 41 47 20 77 68 | 69 63 68 20 63 6f 6e 74 |TFLAG wh|ich cont|
|00003780| 72 6f 6c 73 20 70 72 69 | 6e 74 69 6e 67 20 6f 66 |rols pri|nting of|
|00003790| 20 6f 75 74 70 75 74 3a | 0a 6e 69 6c 20 6d 65 61 | output:|.nil mea|
|000037a0| 6e 73 20 64 69 73 63 61 | 72 64 20 69 74 3b 20 61 |ns disca|rd it; a|
|000037b0| 6e 79 74 68 69 6e 67 20 | 65 6c 73 65 20 69 73 20 |nything |else is |
|000037c0| 73 74 72 65 61 6d 20 66 | 6f 72 20 70 72 69 6e 74 |stream f|or print|
|000037d0| 2e 0a 0a 54 68 69 73 20 | 76 65 72 73 69 6f 6e 2c |...This |version,|
|000037e0| 20 66 72 6f 6d 20 65 64 | 65 62 75 67 2c 20 6d 61 | from ed|ebug, ma|
|000037f0| 79 62 65 20 69 6e 73 74 | 72 75 6d 65 6e 74 73 20 |ybe inst|ruments |
|00003800| 63 6f 64 65 20 66 6f 72 | 20 65 64 65 62 75 67 20 |code for| edebug |
|00003810| 64 65 70 65 6e 64 69 6e | 67 0a 6f 6e 20 74 68 65 |dependin|g.on the|
|00003820| 20 76 61 6c 75 65 73 20 | 6f 66 20 60 65 64 65 62 | values |of `edeb|
|00003830| 75 67 2d 61 6c 6c 2d 64 | 65 66 73 27 20 61 6e 64 |ug-all-d|efs' and|
|00003840| 20 60 65 64 65 62 75 67 | 2d 61 6c 6c 2d 66 6f 72 | `edebug|-all-for|
|00003850| 6d 73 27 2e 0a 0a 49 66 | 20 74 68 65 72 65 20 69 |ms'...If| there i|
|00003860| 73 20 6e 6f 20 65 72 72 | 6f 72 2c 20 70 6f 69 6e |s no err|or, poin|
|00003870| 74 20 64 6f 65 73 20 6e | 6f 74 20 6d 6f 76 65 2e |t does n|ot move.|
|00003880| 20 20 49 66 20 74 68 65 | 72 65 20 69 73 20 61 6e | If the|re is an|
|00003890| 20 65 72 72 6f 72 2c 0a | 70 6f 69 6e 74 20 72 65 | error,.|point re|
|000038a0| 6d 61 69 6e 73 20 61 74 | 20 74 68 65 20 65 6e 64 |mains at| the end|
|000038b0| 20 6f 66 20 74 68 65 20 | 6c 61 73 74 20 63 68 61 | of the |last cha|
|000038c0| 72 61 63 74 65 72 20 72 | 65 61 64 20 66 72 6f 6d |racter r|ead from|
|000038d0| 20 74 68 65 20 62 75 66 | 66 65 72 2e 22 20 22 72 | the buf|fer." "r|
|000038e0| 22 5d 29 0a 28 66 73 65 | 74 20 27 65 64 65 62 75 |"]).(fse|t 'edebu|
|000038f0| 67 2d 65 76 61 6c 2d 63 | 75 72 72 65 6e 74 2d 62 |g-eval-c|urrent-b|
|00003900| 75 66 66 65 72 20 23 5b | 28 26 6f 70 74 69 6f 6e |uffer #[|(&option|
|00003910| 61 6c 20 65 64 65 62 75 | 67 2d 65 2d 63 2d 62 2d |al edebu|g-e-c-b-|
|00003920| 6f 75 74 70 75 74 29 20 | 22 c0 65 64 09 23 87 22 |output) |".ed.#."|
|00003930| 20 5b 65 76 61 6c 2d 72 | 65 67 69 6f 6e 20 65 64 | [eval-r|egion ed|
|00003940| 65 62 75 67 2d 65 2d 63 | 2d 62 2d 6f 75 74 70 75 |ebug-e-c|-b-outpu|
|00003950| 74 5d 20 34 20 22 5c 0a | 45 78 65 63 75 74 65 20 |t] 4 "\.|Execute |
|00003960| 74 68 65 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |the curr|ent buff|
|00003970| 65 72 20 61 73 20 4c 69 | 73 70 20 63 6f 64 65 2e |er as Li|sp code.|
|00003980| 0a 50 72 6f 67 72 61 6d | 73 20 63 61 6e 20 70 61 |.Program|s can pa|
|00003990| 73 73 20 61 72 67 75 6d | 65 6e 74 20 50 52 49 4e |ss argum|ent PRIN|
|000039a0| 54 46 4c 41 47 20 77 68 | 69 63 68 20 63 6f 6e 74 |TFLAG wh|ich cont|
|000039b0| 72 6f 6c 73 20 70 72 69 | 6e 74 69 6e 67 20 6f 66 |rols pri|nting of|
|000039c0| 20 6f 75 74 70 75 74 3a | 0a 6e 69 6c 20 6d 65 61 | output:|.nil mea|
|000039d0| 6e 73 20 64 69 73 63 61 | 72 64 20 69 74 3b 20 61 |ns disca|rd it; a|
|000039e0| 6e 79 74 68 69 6e 67 20 | 65 6c 73 65 20 69 73 20 |nything |else is |
|000039f0| 73 74 72 65 61 6d 20 66 | 6f 72 20 70 72 69 6e 74 |stream f|or print|
|00003a00| 2e 0a 0a 54 68 69 73 20 | 76 65 72 73 69 6f 6e 20 |...This |version |
|00003a10| 66 72 6f 6d 20 65 64 65 | 62 75 67 20 63 61 6c 6c |from ede|bug call|
|00003a20| 73 20 65 76 61 6c 2d 72 | 65 67 69 6f 6e 20 6f 6e |s eval-r|egion on|
|00003a30| 20 74 68 65 20 77 68 6f | 6c 65 20 62 75 66 66 65 | the who|le buffe|
|00003a40| 72 2e 22 20 6e 69 6c 5d | 29 0a 28 66 73 65 74 20 |r." nil]|).(fset |
|00003a50| 27 65 64 65 62 75 67 2d | 65 76 61 6c 2d 62 75 66 |'edebug-|eval-buf|
|00003a60| 66 65 72 20 23 5b 28 65 | 64 65 62 75 67 2d 65 2d |fer #[(e|debug-e-|
|00003a70| 62 2d 62 75 66 6e 61 6d | 65 20 26 6f 70 74 69 6f |b-bufnam|e &optio|
|00003a80| 6e 61 6c 20 65 64 65 62 | 75 67 2d 65 2d 62 2d 70 |nal edeb|ug-e-b-p|
|00003a90| 72 69 6e 74 66 6c 61 67 | 29 20 22 8a c0 09 21 ae |rintflag|) "...!.|
|00003aa0| 84 c2 c3 09 5c 22 71 88 | c4 65 64 0d 23 29 87 22 |....\"q.|.ed.#)."|
|00003ab0| 20 5b 67 65 74 2d 62 75 | 66 66 65 72 20 65 64 65 | [get-bu|ffer ede|
|00003ac0| 62 75 67 2d 65 2d 62 2d | 62 75 66 6e 61 6d 65 20 |bug-e-b-|bufname |
|00003ad0| 65 72 72 6f 72 20 22 4e | 6f 20 73 75 63 68 20 62 |error "N|o such b|
|00003ae0| 75 66 66 65 72 3a 20 25 | 73 22 20 65 76 61 6c 2d |uffer: %|s" eval-|
|00003af0| 72 65 67 69 6f 6e 20 65 | 64 65 62 75 67 2d 65 2d |region e|debug-e-|
|00003b00| 62 2d 70 72 69 6e 74 66 | 6c 61 67 5d 20 34 20 22 |b-printf|lag] 4 "|
|00003b10| 5c 0a 45 78 65 63 75 74 | 65 20 42 55 46 46 45 52 |\.Execut|e BUFFER|
|00003b20| 20 61 73 20 4c 69 73 70 | 20 63 6f 64 65 2e 20 20 | as Lisp| code. |
|00003b30| 50 72 6f 67 72 61 6d 73 | 20 63 61 6e 20 70 61 73 |Programs| can pas|
|00003b40| 73 20 61 72 67 75 6d 65 | 6e 74 20 50 52 49 4e 54 |s argume|nt PRINT|
|00003b50| 46 4c 41 47 0a 77 68 69 | 63 68 20 63 6f 6e 74 72 |FLAG.whi|ch contr|
|00003b60| 6f 6c 73 20 70 72 69 6e | 74 69 6e 67 20 6f 66 20 |ols prin|ting of |
|00003b70| 6f 75 74 70 75 74 3a 20 | 6e 69 6c 20 6d 65 61 6e |output: |nil mean|
|00003b80| 73 20 64 69 73 63 61 72 | 64 20 69 74 3b 20 61 6e |s discar|d it; an|
|00003b90| 79 74 68 69 6e 67 20 65 | 6c 73 65 0a 69 73 20 73 |ything e|lse.is s|
|00003ba0| 74 72 65 61 6d 20 66 6f | 72 20 70 72 69 6e 74 2e |tream fo|r print.|
|00003bb0| 0a 0a 54 68 69 73 20 76 | 65 72 73 69 6f 6e 20 66 |..This v|ersion f|
|00003bc0| 72 6f 6d 20 65 64 65 62 | 75 67 20 63 61 6c 6c 73 |rom edeb|ug calls|
|00003bd0| 20 65 76 61 6c 2d 72 65 | 67 69 6f 6e 20 6f 6e 20 | eval-re|gion on |
|00003be0| 74 68 65 20 77 68 6f 6c | 65 20 62 75 66 66 65 72 |the whol|e buffer|
|00003bf0| 2e 22 20 22 62 42 75 66 | 66 65 72 3a 20 22 5d 29 |." "bBuf|fer: "])|
|00003c00| 0a 28 6d 61 6b 65 2d 76 | 61 72 69 61 62 6c 65 2d |.(make-v|ariable-|
|00003c10| 62 75 66 66 65 72 2d 6c | 6f 63 61 6c 20 27 65 64 |buffer-l|ocal 'ed|
|00003c20| 65 62 75 67 2d 66 6f 72 | 6d 2d 64 61 74 61 29 0a |ebug-for|m-data).|
|00003c30| 28 64 65 66 63 6f 6e 73 | 74 20 65 64 65 62 75 67 |(defcons|t edebug|
|00003c40| 2d 66 6f 72 6d 2d 64 61 | 74 61 20 6e 69 6c 20 22 |-form-da|ta nil "|
|00003c50| 5c 0a 50 65 72 2d 62 75 | 66 66 65 72 20 6c 6f 63 |\.Per-bu|ffer loc|
|00003c60| 61 6c 20 76 61 72 69 61 | 62 6c 65 20 77 68 6f 73 |al varia|ble whos|
|00003c70| 65 20 76 61 6c 75 65 20 | 69 73 20 61 20 6c 69 73 |e value |is a lis|
|00003c80| 74 20 6f 66 20 65 6e 74 | 72 69 65 73 2e 0a 40 63 |t of ent|ries..@c|
|00003c90| 6f 64 65 7b 28 40 76 61 | 72 7b 73 79 6d 62 6f 6c |ode{(@va|r{symbol|
|00003ca0| 7d 20 40 76 61 72 7b 62 | 65 67 69 6e 2d 6d 61 72 |} @var{b|egin-mar|
|00003cb0| 6b 65 72 7d 20 40 76 61 | 72 7b 65 6e 64 2d 6d 61 |ker} @va|r{end-ma|
|00003cc0| 72 6b 65 72 7d 29 2e 20 | 20 54 68 65 20 6d 61 72 |rker}). | The mar|
|00003cd0| 6b 65 72 73 0a 61 72 65 | 20 61 74 20 74 68 65 20 |kers.are| at the |
|00003ce0| 62 65 67 69 6e 6e 69 6e | 67 20 61 6e 64 20 65 6e |beginnin|g and en|
|00003cf0| 64 20 6f 66 20 61 6e 20 | 65 6e 74 72 79 20 6c 65 |d of an |entry le|
|00003d00| 76 65 6c 20 66 6f 72 6d | 20 61 6e 64 20 40 76 61 |vel form| and @va|
|00003d10| 72 7b 73 79 6d 62 6f 6c | 7d 20 69 73 0a 61 20 73 |r{symbol|} is.a s|
|00003d20| 79 6d 62 6f 6c 20 74 68 | 61 74 20 68 6f 6c 64 73 |ymbol th|at holds|
|00003d30| 20 61 6c 6c 20 65 64 65 | 62 75 67 20 72 65 6c 61 | all ede|bug rela|
|00003d40| 74 65 64 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |ted info|rmation |
|00003d50| 66 6f 72 20 74 68 65 20 | 66 6f 72 6d 20 6f 6e 20 |for the |form on |
|00003d60| 69 74 73 0a 70 72 6f 70 | 65 72 74 79 20 6c 69 73 |its.prop|erty lis|
|00003d70| 74 2e 22 29 0a 28 66 73 | 65 74 20 27 65 64 65 62 |t.").(fs|et 'edeb|
|00003d80| 75 67 2d 6d 61 6b 65 2d | 66 6f 72 6d 2d 64 61 74 |ug-make-|form-dat|
|00003d90| 61 2d 65 6e 74 72 79 20 | 23 5b 28 73 79 6d 62 6f |a-entry |#[(symbo|
|00003da0| 6c 20 62 65 67 69 6e 20 | 65 6e 64 29 20 22 08 09 |l begin |end) "..|
|00003db0| 5c 6e 45 87 22 20 5b 73 | 79 6d 62 6f 6c 20 62 65 |\nE." [s|ymbol be|
|00003dc0| 67 69 6e 20 65 6e 64 5d | 20 33 5d 29 0a 28 66 73 |gin end]| 3]).(fs|
|00003dd0| 65 74 20 27 65 64 65 62 | 75 67 2d 67 65 74 2d 66 |et 'edeb|ug-get-f|
|00003de0| 6f 72 6d 2d 64 61 74 61 | 2d 65 6e 74 72 79 20 23 |orm-data|-entry #|
|00003df0| 5b 28 70 6e 74 29 20 22 | 08 c1 c2 1b 1c 1d 0d ab |[(pnt) "|........|
|00003e00| b6 c6 0b 57 ab b1 0d 40 | 89 1e 07 41 40 1e 08 0e |...W...@|...A@...|
|00003e10| 09 0e 08 5a 1e 5c 6e 0d | 41 15 0e 5c 6e 0b 57 ab |...Z.\n.|A..\n.W.|
|00003e20| 95 c6 0e 5c 6e 58 ab 8f | 0e 09 cb 0e 07 38 58 ab |...\nX..|.....8X.|
|00003e30| 86 0e 5c 6e 13 0e 07 14 | 2b aa 47 0c 2b 87 22 20 |..\n....|+.G.+." |
|00003e40| 5b 65 64 65 62 75 67 2d | 66 6f 72 6d 2d 64 61 74 |[edebug-|form-dat|
|00003e50| 61 20 6e 69 6c 20 39 39 | 39 39 39 39 20 63 6c 6f |a nil 99|9999 clo|
|00003e60| 73 65 73 74 2d 64 69 73 | 74 20 63 6c 6f 73 65 73 |sest-dis|t closes|
|00003e70| 74 2d 65 6e 74 72 79 20 | 72 65 73 74 20 30 20 65 |t-entry |rest 0 e|
|00003e80| 6e 74 72 79 20 62 65 67 | 69 6e 20 70 6e 74 20 64 |ntry beg|in pnt d|
|00003e90| 69 73 74 20 32 5d 20 34 | 20 22 5c 0a 46 69 6e 64 |ist 2] 4| "\.Find|
|00003ea0| 20 74 68 65 20 65 64 65 | 62 75 67 20 66 6f 72 6d | the ede|bug form|
|00003eb0| 20 64 61 74 61 20 65 6e | 74 72 79 20 77 68 69 63 | data en|try whic|
|00003ec0| 68 20 69 73 20 63 6c 6f | 73 65 73 74 20 74 6f 20 |h is clo|sest to |
|00003ed0| 50 4e 54 2e 0a 52 65 74 | 75 72 6e 20 60 6e 69 6c |PNT..Ret|urn `nil|
|00003ee0| 27 20 69 66 20 6e 6f 6e | 65 20 66 6f 75 6e 64 2e |' if non|e found.|
|00003ef0| 22 5d 29 0a 28 66 73 65 | 74 20 27 65 64 65 62 75 |"]).(fse|t 'edebu|
|00003f00| 67 2d 66 6f 72 6d 2d 64 | 61 74 61 2d 73 79 6d 62 |g-form-d|ata-symb|
|00003f10| 6f 6c 20 23 5b 6e 69 6c | 20 22 c0 60 21 40 ae 83 |ol #[nil| ".`!@..|
|00003f20| c1 c2 21 87 22 20 5b 65 | 64 65 62 75 67 2d 67 65 |..!." [e|debug-ge|
|00003f30| 74 2d 66 6f 72 6d 2d 64 | 61 74 61 2d 65 6e 74 72 |t-form-d|ata-entr|
|00003f40| 79 20 65 72 72 6f 72 20 | 22 46 6f 72 6d 20 6e 6f |y error |"Form no|
|00003f50| 74 20 69 6e 73 74 72 75 | 6d 65 6e 74 65 64 2e 22 |t instru|mented."|
|00003f60| 5d 20 32 20 22 5c 0a 52 | 65 74 75 72 6e 20 74 68 |] 2 "\.R|eturn th|
|00003f70| 65 20 65 64 65 62 75 67 | 20 64 61 74 61 20 73 79 |e edebug| data sy|
|00003f80| 6d 62 6f 6c 20 6f 66 20 | 74 68 65 20 66 6f 72 6d |mbol of |the form|
|00003f90| 20 77 68 65 72 65 20 70 | 6f 69 6e 74 20 69 73 20 | where p|oint is |
|00003fa0| 69 6e 2e 0a 49 66 20 70 | 6f 69 6e 74 20 69 73 20 |in..If p|oint is |
|00003fb0| 6e 6f 74 20 69 6e 73 69 | 64 65 20 61 20 65 64 65 |not insi|de a ede|
|00003fc0| 62 75 67 67 61 62 6c 65 | 20 66 6f 72 6d 2c 20 63 |buggable| form, c|
|00003fd0| 61 75 73 65 20 65 72 72 | 6f 72 2e 22 5d 29 0a 28 |ause err|or."]).(|
|00003fe0| 66 73 65 74 20 27 65 64 | 65 62 75 67 2d 73 65 74 |fset 'ed|ebug-set|
|00003ff0| 2d 66 6f 72 6d 2d 64 61 | 74 61 2d 65 6e 74 72 79 |-form-da|ta-entry|
|00004000| 20 23 5b 28 6e 65 77 2d | 65 6e 74 72 79 29 20 22 | #[(new-|entry) "|
|00004010| c0 09 21 88 09 5c 6e 42 | 89 12 87 22 20 5b 65 64 |..!..\nB|..." [ed|
|00004020| 65 62 75 67 2d 63 6c 65 | 61 72 2d 66 6f 72 6d 2d |ebug-cle|ar-form-|
|00004030| 64 61 74 61 2d 65 6e 74 | 72 79 20 6e 65 77 2d 65 |data-ent|ry new-e|
|00004040| 6e 74 72 79 20 65 64 65 | 62 75 67 2d 66 6f 72 6d |ntry ede|bug-form|
|00004050| 2d 64 61 74 61 5d 20 32 | 20 22 5c 0a 4d 61 6b 65 |-data] 2| "\.Make|
|00004060| 20 4e 45 57 2d 45 4e 54 | 52 59 20 74 68 65 20 66 | NEW-ENT|RY the f|
|00004070| 69 72 73 74 20 65 6c 65 | 6d 65 6e 74 20 69 6e 20 |irst ele|ment in |
|00004080| 74 68 65 20 60 65 64 65 | 62 75 67 2d 66 6f 72 6d |the `ede|bug-form|
|00004090| 2d 64 61 74 61 27 20 6c | 69 73 74 2e 22 5d 29 0a |-data' l|ist."]).|
|000040a0| 28 66 73 65 74 20 27 65 | 64 65 62 75 67 2d 63 6c |(fset 'e|debug-cl|
|000040b0| 65 61 72 2d 66 6f 72 6d | 2d 64 61 74 61 2d 65 6e |ear-form|-data-en|
|000040c0| 74 72 79 20 23 5b 28 65 | 6e 74 72 79 29 20 22 08 |try #[(e|ntry) ".|
|000040d0| ad 86 c1 08 5c 6e 5c 22 | 89 12 87 22 20 5b 65 6e |....\n\"|..." [en|
|000040e0| 74 72 79 20 64 65 6c 71 | 20 65 64 65 62 75 67 2d |try delq| edebug-|
|000040f0| 66 6f 72 6d 2d 64 61 74 | 61 5d 20 33 5d 29 0a 28 |form-dat|a] 3]).(|
|00004100| 66 73 65 74 20 27 64 65 | 66 2d 65 64 65 62 75 67 |fset 'de|f-edebug|
|00004110| 2d 73 70 65 63 20 27 28 | 6d 61 63 72 6f 20 2e 20 |-spec '(|macro . |
|00004120| 23 5b 28 73 79 6d 62 6f | 6c 20 73 70 65 63 29 20 |#[(symbo|l spec) |
|00004130| 22 c0 c1 5c 6e 44 c3 c1 | 0c 44 46 87 22 20 5b 70 |"..\nD..|.DF." [p|
|00004140| 75 74 20 71 75 6f 74 65 | 20 73 79 6d 62 6f 6c 20 |ut quote| symbol |
|00004150| 27 65 64 65 62 75 67 2d | 66 6f 72 6d 2d 73 70 65 |'edebug-|form-spe|
|00004160| 63 20 73 70 65 63 5d 20 | 35 20 22 5c 0a 53 65 74 |c spec] |5 "\.Set|
|00004170| 20 74 68 65 20 65 64 65 | 62 75 67 2d 66 6f 72 6d | the ede|bug-form|
|00004180| 2d 73 70 65 63 20 70 72 | 6f 70 65 72 74 79 20 6f |-spec pr|operty o|
|00004190| 66 20 53 59 4d 42 4f 4c | 20 61 63 63 6f 72 64 69 |f SYMBOL| accordi|
|000041a0| 6e 67 20 74 6f 20 53 50 | 45 43 2e 20 20 0a 54 68 |ng to SP|EC. .Th|
|000041b0| 65 20 75 6e 65 76 61 6c | 75 61 74 65 64 20 53 50 |e uneval|uated SP|
|000041c0| 45 43 20 63 61 6e 20 62 | 65 20 30 2c 20 74 2c 20 |EC can b|e 0, t, |
|000041d0| 6f 72 20 61 20 73 79 6d | 62 6f 6c 20 28 6e 61 6d |or a sym|bol (nam|
|000041e0| 69 6e 67 20 61 20 66 75 | 6e 63 74 69 6f 6e 29 2c |ing a fu|nction),|
|000041f0| 0a 6f 72 20 61 20 73 70 | 65 63 20 6c 69 73 74 2e |.or a sp|ec list.|
|00004200| 22 5d 29 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |"])).(by|te-code |
|00004210| 22 c0 c1 4d 88 c2 c3 4d | 88 c4 15 c6 c7 4d 87 22 |"..M...M|.....M."|
|00004220| 20 5b 64 65 66 2d 65 64 | 65 62 75 67 2d 66 6f 72 | [def-ed|ebug-for|
|00004230| 6d 2d 73 70 65 63 20 28 | 6d 61 63 72 6f 20 2e 20 |m-spec (|macro . |
|00004240| 23 5b 28 73 79 6d 62 6f | 6c 20 73 70 65 63 2d 66 |#[(symbo|l spec-f|
|00004250| 6f 72 6d 29 20 22 c0 c1 | 21 88 c2 c3 c4 c5 23 87 |orm) "..|!.....#.|
|00004260| 22 20 5b 6d 65 73 73 61 | 67 65 20 22 4f 62 73 6f |" [messa|ge "Obso|
|00004270| 6c 65 74 65 3a 20 75 73 | 65 20 64 65 66 2d 65 64 |lete: us|e def-ed|
|00004280| 65 62 75 67 2d 73 70 65 | 63 20 69 6e 73 74 65 61 |ebug-spe|c instea|
|00004290| 64 2e 22 20 70 75 74 20 | 73 79 6d 62 6f 6c 20 65 |d." put |symbol e|
|000042a0| 64 65 62 75 67 2d 66 6f | 72 6d 2d 73 70 65 63 20 |debug-fo|rm-spec |
|000042b0| 28 65 76 61 6c 20 73 70 | 65 63 2d 66 6f 72 6d 29 |(eval sp|ec-form)|
|000042c0| 5d 20 34 5d 29 20 67 65 | 74 2d 65 64 65 62 75 67 |] 4]) ge|t-edebug|
|000042d0| 2d 73 70 65 63 20 23 5b | 28 73 79 6d 62 6f 6c 29 |-spec #[|(symbol)|
|000042e0| 20 22 08 c1 4e c2 1b 89 | 19 39 ab 8c 09 c1 4e 89 | "..N...|.9....N.|
|000042f0| 13 ab 85 0b 89 11 aa 71 | 09 2a 87 22 20 5b 73 79 |.......q|.*." [sy|
|00004300| 6d 62 6f 6c 20 65 64 65 | 62 75 67 2d 66 6f 72 6d |mbol ede|bug-form|
|00004310| 2d 73 70 65 63 20 6e 69 | 6c 20 69 6e 64 69 72 65 |-spec ni|l indire|
|00004320| 63 74 5d 20 33 5d 20 6e | 69 6c 20 65 64 65 62 75 |ct] 3] n|il edebu|
|00004330| 67 2d 64 65 66 2d 6e 61 | 6d 65 20 65 64 65 62 75 |g-def-na|me edebu|
|00004340| 67 2d 64 65 66 75 6e 20 | 65 64 65 62 75 67 2d 65 |g-defun |edebug-e|
|00004350| 76 61 6c 2d 74 6f 70 2d | 6c 65 76 65 6c 2d 66 6f |val-top-|level-fo|
|00004360| 72 6d 5d 20 32 29 0a 28 | 66 73 65 74 20 27 65 64 |rm] 2).(|fset 'ed|
|00004370| 65 62 75 67 2d 65 76 61 | 6c 2d 74 6f 70 2d 6c 65 |ebug-eva|l-top-le|
|00004380| 76 65 6c 2d 66 6f 72 6d | 20 23 5b 6e 69 6c 20 22 |vel-form| #[nil "|
|00004390| c0 c1 1a c3 20 29 21 87 | 22 20 5b 65 76 61 6c 20 |.... )!.|" [eval |
|000043a0| 74 20 65 64 65 62 75 67 | 2d 61 6c 6c 2d 66 6f 72 |t edebug|-all-for|
|000043b0| 6d 73 20 65 64 65 62 75 | 67 2d 72 65 61 64 2d 74 |ms edebu|g-read-t|
|000043c0| 6f 70 2d 6c 65 76 65 6c | 2d 66 6f 72 6d 5d 20 32 |op-level|-form] 2|
|000043d0| 20 22 5c 0a 45 76 61 6c | 75 61 74 65 20 61 20 74 | "\.Eval|uate a t|
|000043e0| 6f 70 20 6c 65 76 65 6c | 20 66 6f 72 6d 2c 20 73 |op level| form, s|
|000043f0| 75 63 68 20 61 73 20 64 | 65 66 75 6e 20 6f 72 20 |uch as d|efun or |
|00004400| 64 65 66 6d 61 63 72 6f | 2e 0a 54 68 69 73 20 69 |defmacro|..This i|
|00004410| 73 20 6c 69 6b 65 20 65 | 76 61 6c 2d 64 65 66 75 |s like e|val-defu|
|00004420| 6e 2c 20 62 75 74 20 77 | 69 74 68 20 65 64 65 62 |n, but w|ith edeb|
|00004430| 75 67 20 63 61 6c 6c 73 | 2e 0a 50 72 69 6e 74 20 |ug calls|..Print |
|00004440| 69 74 73 20 6e 61 6d 65 | 20 69 6e 20 74 68 65 20 |its name| in the |
|00004450| 6d 69 6e 69 62 75 66 66 | 65 72 20 61 6e 64 20 6c |minibuff|er and l|
|00004460| 65 61 76 65 20 70 6f 69 | 6e 74 20 77 68 65 72 65 |eave poi|nt where|
|00004470| 20 69 74 20 69 73 2c 0a | 6f 72 20 69 66 20 61 6e | it is,.|or if an|
|00004480| 20 65 72 72 6f 72 20 6f | 63 63 75 72 73 2c 20 6c | error o|ccurs, l|
|00004490| 65 61 76 65 20 70 6f 69 | 6e 74 20 61 66 74 65 72 |eave poi|nt after|
|000044a0| 20 69 74 20 77 69 74 68 | 20 6d 61 72 6b 20 61 74 | it with| mark at|
|000044b0| 20 74 68 65 20 6f 72 69 | 67 69 6e 61 6c 20 70 6f | the ori|ginal po|
|000044c0| 69 6e 74 2e 22 20 6e 69 | 6c 5d 29 0a 28 66 73 65 |int." ni|l]).(fse|
|000044d0| 74 20 27 65 64 65 62 75 | 67 2d 72 65 61 64 2d 74 |t 'edebu|g-read-t|
|000044e0| 6f 70 2d 6c 65 76 65 6c | 2d 66 6f 72 6d 20 23 5b |op-level|-form #[|
|000044f0| 6e 69 6c 20 22 60 18 c1 | 20 88 c2 20 88 c3 c4 21 |nil "`..| .. ...!|
|00004500| 08 62 88 29 87 22 20 5b | 73 74 61 72 74 69 6e 67 |.b.)." [|starting|
|00004510| 2d 70 6f 69 6e 74 20 65 | 6e 64 2d 6f 66 2d 64 65 |-point e|nd-of-de|
|00004520| 66 75 6e 20 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |fun begi|nning-of|
|00004530| 2d 64 65 66 75 6e 20 65 | 64 65 62 75 67 2d 72 65 |-defun e|debug-re|
|00004540| 61 64 2d 61 6e 64 2d 6d | 61 79 62 65 2d 77 72 61 |ad-and-m|aybe-wra|
|00004550| 70 2d 66 6f 72 6d 20 65 | 64 65 62 75 67 2d 64 65 |p-form e|debug-de|
|00004560| 66 73 5d 20 32 20 22 5c | 0a 52 65 61 64 20 61 6e |fs] 2 "\|.Read an|
|00004570| 64 20 77 72 61 70 20 74 | 68 65 20 74 6f 70 20 6c |d wrap t|he top l|
|00004580| 65 76 65 6c 20 66 6f 72 | 6d 20 77 69 74 68 20 62 |evel for|m with b|
|00004590| 75 74 20 64 6f 6e 27 74 | 20 65 76 61 6c 75 61 74 |ut don't| evaluat|
|000045a0| 65 20 69 74 2e 22 5d 29 | 0a 28 62 79 74 65 2d 63 |e it."])|.(byte-c|
|000045b0| 6f 64 65 20 22 c0 11 c2 | c3 4d 88 c4 c5 4d 88 c6 |ode "...|.M...M..|
|000045c0| c7 4d 87 22 20 5b 6e 69 | 6c 20 65 64 65 62 75 67 |.M." [ni|l edebug|
|000045d0| 2d 65 72 72 6f 72 2d 70 | 6f 69 6e 74 20 65 64 65 |-error-p|oint ede|
|000045e0| 62 75 67 2d 72 65 61 64 | 2d 61 6e 64 2d 6d 61 79 |bug-read|-and-may|
|000045f0| 62 65 2d 77 72 61 70 2d | 66 6f 72 6d 20 23 5b 28 |be-wrap-|form #[(|
|00004600| 65 64 65 62 75 67 2d 64 | 65 66 73 29 20 22 c0 c1 |edebug-d|efs) "..|
|00004610| 21 88 c2 11 c3 c4 0d 5c | 22 ab 84 c6 c7 21 88 c2 |!......\|"....!..|
|00004620| 89 89 89 89 89 89 89 1e | 08 1e 09 1e 5c 6e 1e 0b |........|....\n..|
|00004630| 1e 0c 1e 0d 1e 0e 1e 0f | c8 d0 8d 89 16 08 ab 86 |........|........|
|00004640| d1 d2 0e 08 5c 22 88 0e | 0f 2e 08 87 22 20 5b 72 |....\"..|...." [r|
|00004650| 75 6e 2d 68 6f 6f 6b 73 | 20 65 64 65 62 75 67 2d |un-hooks| edebug-|
|00004660| 73 65 74 75 70 2d 68 6f | 6f 6b 20 6e 69 6c 20 73 |setup-ho|ok nil s|
|00004670| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 58 45 6d |tring-ma|tch "XEm|
|00004680| 61 63 73 22 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |acs" ema|cs-versi|
|00004690| 6f 6e 20 72 65 71 75 69 | 72 65 20 65 64 65 62 75 |on requi|re edebu|
|000046a0| 67 2d 78 65 6d 61 63 73 | 20 6e 6f 2d 6d 61 74 63 |g-xemacs| no-matc|
|000046b0| 68 20 65 64 65 62 75 67 | 2d 65 72 72 6f 72 2d 70 |h edebug|-error-p|
|000046c0| 6f 69 6e 74 20 65 64 65 | 62 75 67 2d 62 65 73 74 |oint ede|bug-best|
|000046d0| 2d 65 72 72 6f 72 20 65 | 64 65 62 75 67 2d 66 65 |-error e|debug-fe|
|000046e0| 6e 63 65 20 65 64 65 62 | 75 67 2d 26 72 65 73 74 |nce edeb|ug-&rest|
|000046f0| 20 65 64 65 62 75 67 2d | 26 6f 70 74 69 6f 6e 61 | edebug-|&optiona|
|00004700| 6c 20 65 64 65 62 75 67 | 2d 64 65 66 2d 6e 61 6d |l edebug|-def-nam|
|00004710| 65 20 72 65 73 75 6c 74 | 20 28 62 79 74 65 2d 63 |e result| (byte-c|
|00004720| 6f 64 65 20 22 c0 09 21 | 12 c3 87 22 20 5b 65 64 |ode "..!|..." [ed|
|00004730| 65 62 75 67 2d 72 65 61 | 64 2d 61 6e 64 2d 6d 61 |ebug-rea|d-and-ma|
|00004740| 79 62 65 2d 77 72 61 70 | 2d 66 6f 72 6d 31 20 65 |ybe-wrap|-form1 e|
|00004750| 64 65 62 75 67 2d 64 65 | 66 73 20 72 65 73 75 6c |debug-de|fs resul|
|00004760| 74 20 6e 69 6c 5d 20 32 | 29 20 61 70 70 6c 79 20 |t nil] 2|) apply |
|00004770| 65 64 65 62 75 67 2d 73 | 79 6e 74 61 78 2d 65 72 |edebug-s|yntax-er|
|00004780| 72 6f 72 5d 20 39 5d 20 | 65 64 65 62 75 67 2d 72 |ror] 9] |edebug-r|
|00004790| 65 61 64 2d 61 6e 64 2d | 6d 61 79 62 65 2d 77 72 |ead-and-|maybe-wr|
|000047a0| 61 70 2d 66 6f 72 6d 31 | 20 23 5b 28 65 64 65 62 |ap-form1| #[(edeb|
|000047b0| 75 67 2d 64 65 66 73 29 | 20 22 c0 89 89 89 89 89 |ug-defs)| "......|
|000047c0| 89 89 89 19 1a 1b 1c 1d | 1e 06 1e 07 1e 08 1e 09 |........|........|
|000047d0| 8a ca 20 cb 3d ab b9 cc | 75 88 ca 20 cd 3d ab b0 |.. .=...|u.. .=..|
|000047e0| ce 70 21 89 16 08 39 ad | 84 cf 0e 08 21 89 16 09 |.p!...9.|....!...|
|000047f0| 3c ad 85 0e 09 40 d0 3d | 89 16 07 ad 91 0e 09 41 |<....@.=|.......A|
|00004800| 40 d1 3d ad 89 ca 20 cd | 3d ad 83 ce 70 21 16 06 |@.=... .|=...p!..|
|00004810| 29 0e 07 ab b7 0e 12 ab | a7 d3 70 21 12 0d 11 d4 |).......|..p!....|
|00004820| 5c 6e 43 09 43 5c 22 1e | 15 d6 0e 15 d7 0e 15 21 |\nC.C\".|.......!|
|00004830| d8 0e 15 21 d9 0e 08 21 | 0e 09 41 42 43 24 40 29 |...!...!|..ABC$@)|
|00004840| aa b0 da 0e 06 db dc 20 | 23 88 dd 20 aa a4 0e 1e |....... |#.. ....|
|00004850| ab 9e d3 70 21 12 0d 11 | d4 5c 6e 43 09 43 5c 22 |...p!...|.\nC.C\"|
|00004860| 1e 15 d6 0e 15 d7 0e 15 | 21 d8 0e 15 21 c0 24 29 |........|!...!.$)|
|00004870| aa 82 dd 20 2e 09 87 22 | 20 5b 6e 69 6c 20 6f 66 |... ..."| [nil of|
|00004880| 66 73 65 74 73 20 66 6f | 72 6d 20 65 64 65 62 75 |fsets fo|rm edebu|
|00004890| 67 2d 63 75 72 72 65 6e | 74 2d 6f 66 66 73 65 74 |g-curren|t-offset|
|000048a0| 20 65 64 65 62 75 67 2d | 6f 66 66 73 65 74 73 2d | edebug-|offsets-|
|000048b0| 73 74 61 63 6b 20 65 64 | 65 62 75 67 2d 6f 66 66 |stack ed|ebug-off|
|000048c0| 73 65 74 73 20 64 65 66 | 2d 6e 61 6d 65 20 64 65 |sets def|-name de|
|000048d0| 66 69 6e 69 6e 67 2d 66 | 6f 72 6d 2d 70 20 64 65 |fining-f|orm-p de|
|000048e0| 66 2d 6b 69 6e 64 20 73 | 70 65 63 20 65 64 65 62 |f-kind s|pec edeb|
|000048f0| 75 67 2d 6e 65 78 74 2d | 74 6f 6b 65 6e 2d 63 6c |ug-next-|token-cl|
|00004900| 61 73 73 20 6c 70 61 72 | 65 6e 20 31 20 73 79 6d |ass lpar|en 1 sym|
|00004910| 62 6f 6c 20 72 65 61 64 | 20 67 65 74 2d 65 64 65 |bol read| get-ede|
|00004920| 62 75 67 2d 73 70 65 63 | 20 26 64 65 66 69 6e 65 |bug-spec| &define|
|00004930| 20 6e 61 6d 65 20 65 64 | 65 62 75 67 2d 64 65 66 | name ed|ebug-def|
|00004940| 73 20 65 64 65 62 75 67 | 2d 72 65 61 64 20 65 64 |s edebug|-read ed|
|00004950| 65 62 75 67 2d 6e 65 77 | 2d 63 75 72 73 6f 72 20 |ebug-new|-cursor |
|00004960| 63 75 72 73 6f 72 20 65 | 64 65 62 75 67 2d 6d 61 |cursor e|debug-ma|
|00004970| 6b 65 2d 66 6f 72 6d 2d | 77 72 61 70 70 65 72 20 |ke-form-|wrapper |
|00004980| 65 64 65 62 75 67 2d 62 | 65 66 6f 72 65 2d 6f 66 |edebug-b|efore-of|
|00004990| 66 73 65 74 20 65 64 65 | 62 75 67 2d 61 66 74 65 |fset ede|bug-afte|
|000049a0| 72 2d 6f 66 66 73 65 74 | 20 73 79 6d 62 6f 6c 2d |r-offset| symbol-|
|000049b0| 6e 61 6d 65 20 70 75 74 | 20 65 64 65 62 75 67 20 |name put| edebug |
|000049c0| 70 6f 69 6e 74 2d 6d 61 | 72 6b 65 72 20 65 64 65 |point-ma|rker ede|
|000049d0| 62 75 67 2d 72 65 61 64 | 2d 73 65 78 70 20 65 64 |bug-read|-sexp ed|
|000049e0| 65 62 75 67 2d 61 6c 6c | 2d 66 6f 72 6d 73 5d 20 |ebug-all|-forms] |
|000049f0| 31 30 5d 20 65 64 65 62 | 75 67 2d 69 6e 74 65 72 |10] edeb|ug-inter|
|00004a00| 61 63 74 69 76 65 2d 70 | 2d 6e 61 6d 65 20 23 5b |active-p|-name #[|
|00004a10| 6e 69 6c 20 22 c0 c1 c2 | 0b 5c 22 21 87 22 20 5b |nil "...|.\"!." [|
|00004a20| 69 6e 74 65 72 6e 20 66 | 6f 72 6d 61 74 20 22 65 |intern f|ormat "e|
|00004a30| 64 65 62 75 67 2d 25 73 | 2d 69 6e 74 65 72 61 63 |debug-%s|-interac|
|00004a40| 74 69 76 65 2d 70 22 20 | 65 64 65 62 75 67 2d 64 |tive-p" |edebug-d|
|00004a50| 65 66 2d 6e 61 6d 65 5d | 20 34 5d 5d 20 32 29 0a |ef-name]| 4]] 2).|
|00004a60| 28 66 73 65 74 20 27 65 | 64 65 62 75 67 2d 77 72 |(fset 'e|debug-wr|
|00004a70| 61 70 2d 64 65 66 2d 66 | 6f 72 6d 73 20 23 5b 28 |ap-def-f|orms #[(|
|00004a80| 66 6f 72 6d 73 29 20 22 | 08 ab 8b c1 c2 20 c3 42 |forms) "|..... .B|
|00004a90| 43 c4 0d 21 45 87 c4 0d | 21 87 22 20 5b 65 64 65 |C..!E...|!." [ede|
|00004aa0| 62 75 67 2d 64 65 66 2d | 69 6e 74 65 72 61 63 74 |bug-def-|interact|
|00004ab0| 69 76 65 20 6c 65 74 20 | 65 64 65 62 75 67 2d 69 |ive let |edebug-i|
|00004ac0| 6e 74 65 72 61 63 74 69 | 76 65 2d 70 2d 6e 61 6d |nteracti|ve-p-nam|
|00004ad0| 65 20 28 28 69 6e 74 65 | 72 61 63 74 69 76 65 2d |e ((inte|ractive-|
|00004ae0| 70 29 29 20 65 64 65 62 | 75 67 2d 6d 61 6b 65 2d |p)) edeb|ug-make-|
|00004af0| 65 6e 74 65 72 2d 77 72 | 61 70 70 65 72 20 66 6f |enter-wr|apper fo|
|00004b00| 72 6d 73 5d 20 34 20 22 | 5c 0a 57 72 61 70 20 74 |rms] 4 "|\.Wrap t|
|00004b10| 68 65 20 46 4f 52 4d 53 | 20 6f 66 20 61 20 64 65 |he FORMS| of a de|
|00004b20| 66 69 6e 69 74 69 6f 6e | 20 62 6f 64 79 2e 22 5d |finition| body."]|
|00004b30| 29 0a 28 66 73 65 74 20 | 27 65 64 65 62 75 67 2d |).(fset |'edebug-|
|00004b40| 6d 61 6b 65 2d 65 6e 74 | 65 72 2d 77 72 61 70 70 |make-ent|er-wrapp|
|00004b50| 65 72 20 23 5b 28 66 6f | 72 6d 73 29 20 22 08 ae |er #[(fo|rms) "..|
|00004b60| 83 c1 c2 21 10 c3 c4 08 | 44 c5 0e 06 ad 83 0e 07 |...!....|D.......|
|00004b70| 9f 42 c8 c9 ca 0e 0b 42 | 42 44 46 87 22 20 5b 65 |.B.....B|BDF." [e|
|00004b80| 64 65 62 75 67 2d 64 65 | 66 2d 6e 61 6d 65 20 67 |debug-de|f-name g|
|00004b90| 65 6e 73 79 6d 20 22 65 | 64 65 62 75 67 2d 61 6e |ensym "e|debug-an|
|00004ba0| 6f 6e 22 20 65 64 65 62 | 75 67 2d 65 6e 74 65 72 |on" edeb|ug-enter|
|00004bb0| 20 71 75 6f 74 65 20 6c | 69 73 74 20 65 64 65 62 | quote l|ist edeb|
|00004bc0| 75 67 2d 69 6e 73 69 64 | 65 2d 66 75 6e 63 20 65 |ug-insid|e-func e|
|00004bd0| 64 65 62 75 67 2d 64 65 | 66 2d 61 72 67 73 20 66 |debug-de|f-args f|
|00004be0| 75 6e 63 74 69 6f 6e 20 | 6c 61 6d 62 64 61 20 6e |unction |lambda n|
|00004bf0| 69 6c 20 66 6f 72 6d 73 | 5d 20 37 5d 29 0a 28 66 |il forms|] 7]).(f|
|00004c00| 73 65 74 20 27 65 64 65 | 62 75 67 2d 75 6e 77 72 |set 'ede|bug-unwr|
|00004c10| 61 70 20 23 5b 28 73 65 | 78 70 29 20 22 08 3a ab |ap #[(se|xp) ".:.|
|00004c20| a9 08 40 c1 3d ab 84 c2 | 08 38 87 08 40 c3 3d ab |..@.=...|.8..@.=.|
|00004c30| 97 c2 08 38 41 40 41 41 | 89 1c 47 c5 56 ab 85 c6 |...8A@AA|..G.V...|
|00004c40| 0c 42 aa 82 0c 40 29 87 | 08 87 08 87 22 20 5b 73 |.B...@).|...." [s|
|00004c50| 65 78 70 20 65 64 65 62 | 75 67 2d 61 66 74 65 72 |exp edeb|ug-after|
|00004c60| 20 33 20 65 64 65 62 75 | 67 2d 65 6e 74 65 72 20 | 3 edebu|g-enter |
|00004c70| 66 6f 72 6d 73 20 31 20 | 70 72 6f 67 6e 5d 20 33 |forms 1 |progn] 3|
|00004c80| 20 22 5c 0a 52 65 74 75 | 72 6e 20 74 68 65 20 75 | "\.Retu|rn the u|
|00004c90| 6e 77 72 61 70 70 65 64 | 20 53 45 58 50 20 6f 72 |nwrapped| SEXP or|
|00004ca0| 20 72 65 74 75 72 6e 20 | 69 74 20 61 73 20 69 73 | return |it as is|
|00004cb0| 20 69 66 20 69 74 20 69 | 73 20 6e 6f 74 20 77 72 | if it i|s not wr|
|00004cc0| 61 70 70 65 64 2e 0a 54 | 68 65 20 53 45 58 50 20 |apped..T|he SEXP |
|00004cd0| 6d 69 67 68 74 20 62 65 | 20 74 68 65 20 72 65 73 |might be| the res|
|00004ce0| 75 6c 74 20 6f 66 20 77 | 72 61 70 70 69 6e 67 20 |ult of w|rapping |
|00004cf0| 61 20 62 6f 64 79 2c 20 | 77 68 69 63 68 20 69 73 |a body, |which is|
|00004d00| 20 61 20 6c 69 73 74 20 | 6f 66 20 0a 65 78 70 72 | a list |of .expr|
|00004d10| 65 73 73 69 6f 6e 73 3b | 20 61 20 60 70 72 6f 67 |essions;| a `prog|
|00004d20| 6e 27 20 66 6f 72 6d 20 | 77 69 6c 6c 20 62 65 20 |n' form |will be |
|00004d30| 72 65 74 75 72 6e 65 64 | 20 65 6e 63 6c 6f 73 69 |returned| enclosi|
|00004d40| 6e 67 20 74 68 65 73 65 | 20 66 6f 72 6d 73 2e 22 |ng these| forms."|
|00004d50| 5d 29 0a 28 66 73 65 74 | 20 27 65 64 65 62 75 67 |]).(fset| 'edebug|
|00004d60| 2d 75 6e 77 72 61 70 2a | 20 23 5b 28 73 65 78 70 |-unwrap*| #[(sexp|
|00004d70| 29 20 22 c0 09 21 1a 09 | 5c 6e 3d ac 88 5c 6e 11 |) "..!..|\n=..\n.|
|00004d80| c0 09 21 12 aa 73 5c 6e | 3a ab 86 c3 c4 5c 6e 5c |..!..s\n|:....\n\|
|00004d90| 22 aa 81 5c 6e 29 87 22 | 20 5b 65 64 65 62 75 67 |"..\n)."| [edebug|
|00004da0| 2d 75 6e 77 72 61 70 20 | 73 65 78 70 20 6e 65 77 |-unwrap |sexp new|
|00004db0| 2d 73 65 78 70 20 6d 61 | 70 63 61 72 20 65 64 65 |-sexp ma|pcar ede|
|00004dc0| 62 75 67 2d 75 6e 77 72 | 61 70 2a 5d 20 33 20 22 |bug-unwr|ap*] 3 "|
|00004dd0| 5c 0a 52 65 74 75 72 6e | 20 74 68 65 20 73 65 78 |\.Return| the sex|
|00004de0| 70 20 72 65 63 75 72 73 | 69 76 65 6c 79 20 75 6e |p recurs|ively un|
|00004df0| 77 72 61 70 70 65 64 2e | 22 5d 29 0a 28 62 79 74 |wrapped.|"]).(byt|
|00004e00| 65 2d 63 6f 64 65 20 22 | c0 c1 4d 88 c2 c3 4d 88 |e-code "|..M...M.|
|00004e10| c4 c5 4d 88 c6 c7 4d 88 | c8 c9 4d 88 ca cb 4d 88 |..M...M.|..M...M.|
|00004e20| cc cd 4d 87 22 20 5b 65 | 64 65 62 75 67 2d 64 65 |..M." [e|debug-de|
|00004e30| 66 69 6e 69 6e 67 2d 66 | 6f 72 6d 20 23 5b 28 63 |fining-f|orm #[(c|
|00004e40| 75 72 73 6f 72 20 66 6f | 72 6d 2d 62 65 67 69 6e |ursor fo|rm-begin|
|00004e50| 20 66 6f 72 6d 2d 65 6e | 64 20 73 70 65 63 6c 69 | form-en|d specli|
|00004e60| 73 74 29 20 22 c0 09 c2 | 09 21 c3 09 21 41 23 88 |st) "...|.!..!A#.|
|00004e70| c4 09 0d 0e 06 0e 07 24 | 87 22 20 5b 65 64 65 62 |.......$|." [edeb|
|00004e80| 75 67 2d 73 65 74 2d 63 | 75 72 73 6f 72 20 63 75 |ug-set-c|ursor cu|
|00004e90| 72 73 6f 72 20 65 64 65 | 62 75 67 2d 63 75 72 73 |rsor ede|bug-curs|
|00004ea0| 6f 72 2d 6f 62 6a 65 63 | 74 20 65 64 65 62 75 67 |or-objec|t edebug|
|00004eb0| 2d 63 75 72 73 6f 72 2d | 6f 66 66 73 65 74 73 20 |-cursor-|offsets |
|00004ec0| 65 64 65 62 75 67 2d 6d | 61 6b 65 2d 66 6f 72 6d |edebug-m|ake-form|
|00004ed0| 2d 77 72 61 70 70 65 72 | 20 66 6f 72 6d 2d 62 65 |-wrapper| form-be|
|00004ee0| 67 69 6e 20 66 6f 72 6d | 2d 65 6e 64 20 73 70 65 |gin form|-end spe|
|00004ef0| 63 6c 69 73 74 5d 20 35 | 5d 20 65 64 65 62 75 67 |clist] 5|] edebug|
|00004f00| 2d 6d 61 6b 65 2d 66 6f | 72 6d 2d 77 72 61 70 70 |-make-fo|rm-wrapp|
|00004f10| 65 72 20 23 5b 28 63 75 | 72 73 6f 72 20 66 6f 72 |er #[(cu|rsor for|
|00004f20| 6d 2d 62 65 67 69 6e 20 | 66 6f 72 6d 2d 65 6e 64 |m-begin |form-end|
|00004f30| 20 26 6f 70 74 69 6f 6e | 61 6c 20 73 70 65 63 6c | &option|al specl|
|00004f40| 69 73 74 29 20 22 c0 09 | 21 89 1a ab 85 5c 6e 41 |ist) "..|!....\nA|
|00004f50| 40 aa 85 c3 20 09 c4 93 | 1d c4 1e 06 c7 1e 08 c4 |@... ...|........|
|00004f60| 1e 09 c4 1e 5c 6e c4 1e | 0b c4 1e 0c c4 1e 0d 0e |....\n..|........|
|00004f70| 0e ab 88 cf 0e 10 0e 0e | 5c 22 aa 87 d1 d2 0e 10 |........|\"......|
|00004f80| 21 43 21 16 09 0e 5c 6e | ae 83 d3 d4 21 16 5c 6e |!C!...\n|....!.\n|
|00004f90| 5c 6e ac 96 d5 0e 5c 6e | 0d 5c 6e ab 85 d6 5c 6e |\n....\n|.\n...\n|
|00004fa0| 38 aa 86 c3 20 0e 17 c4 | 93 23 12 aa 94 5c 6e 0e |8... ...|.#...\n.|
|00004fb0| 5c 6e a0 88 5c 6e 41 40 | 09 c4 93 88 d6 5c 6e 38 |\n..\nA@|.....\n8|
|00004fc0| 0e 17 c4 93 88 d8 5c 6e | 21 88 d9 da 0e 5c 6e 5c |......\n|!....\n\|
|00004fd0| 22 88 db 0e 06 9f 21 16 | 06 dc 0e 5c 6e 21 88 dd |".....!.|...\n!..|
|00004fe0| 0e 5c 6e 21 88 de 0e 5c | 6e df 0d c4 0e 06 45 23 |.\n!...\|n.....E#|
|00004ff0| 88 0e 09 2e 09 87 22 20 | 5b 65 64 65 62 75 67 2d |......" |[edebug-|
|00005000| 67 65 74 2d 66 6f 72 6d | 2d 64 61 74 61 2d 65 6e |get-form|-data-en|
|00005010| 74 72 79 20 66 6f 72 6d | 2d 62 65 67 69 6e 20 66 |try form|-begin f|
|00005020| 6f 72 6d 2d 64 61 74 61 | 2d 65 6e 74 72 79 20 6d |orm-data|-entry m|
|00005030| 61 6b 65 2d 6d 61 72 6b | 65 72 20 6e 69 6c 20 65 |ake-mark|er nil e|
|00005040| 64 65 62 75 67 2d 66 6f | 72 6d 2d 62 65 67 69 6e |debug-fo|rm-begin|
|00005050| 2d 6d 61 72 6b 65 72 20 | 65 64 65 62 75 67 2d 6f |-marker |edebug-o|
|00005060| 66 66 73 65 74 2d 6c 69 | 73 74 20 30 20 65 64 65 |ffset-li|st 0 ede|
|00005070| 62 75 67 2d 6f 66 66 73 | 65 74 2d 69 6e 64 65 78 |bug-offs|et-index|
|00005080| 20 72 65 73 75 6c 74 20 | 65 64 65 62 75 67 2d 64 | result |edebug-d|
|00005090| 65 66 2d 6e 61 6d 65 20 | 65 64 65 62 75 67 2d 64 |ef-name |edebug-d|
|000050a0| 65 66 2d 61 72 67 73 20 | 65 64 65 62 75 67 2d 64 |ef-args |edebug-d|
|000050b0| 65 66 2d 69 6e 74 65 72 | 61 63 74 69 76 65 20 65 |ef-inter|active e|
|000050c0| 64 65 62 75 67 2d 69 6e | 73 69 64 65 2d 66 75 6e |debug-in|side-fun|
|000050d0| 63 20 73 70 65 63 6c 69 | 73 74 20 65 64 65 62 75 |c specli|st edebu|
|000050e0| 67 2d 6d 61 74 63 68 20 | 63 75 72 73 6f 72 20 65 |g-match |cursor e|
|000050f0| 64 65 62 75 67 2d 6d 61 | 6b 65 2d 65 6e 74 65 72 |debug-ma|ke-enter|
|00005100| 2d 77 72 61 70 70 65 72 | 20 65 64 65 62 75 67 2d |-wrapper| edebug-|
|00005110| 66 6f 72 6d 20 67 65 6e | 73 79 6d 20 22 65 64 65 |form gen|sym "ede|
|00005120| 62 75 67 2d 61 6e 6f 6e | 22 20 65 64 65 62 75 67 |bug-anon|" edebug|
|00005130| 2d 6d 61 6b 65 2d 66 6f | 72 6d 2d 64 61 74 61 2d |-make-fo|rm-data-|
|00005140| 65 6e 74 72 79 20 32 20 | 66 6f 72 6d 2d 65 6e 64 |entry 2 |form-end|
|00005150| 20 65 64 65 62 75 67 2d | 73 65 74 2d 66 6f 72 6d | edebug-|set-form|
|00005160| 2d 64 61 74 61 2d 65 6e | 74 72 79 20 6d 65 73 73 |-data-en|try mess|
|00005170| 61 67 65 20 22 65 64 65 | 62 75 67 3a 20 25 73 22 |age "ede|bug: %s"|
|00005180| 20 76 63 6f 6e 63 61 74 | 20 65 64 65 62 75 67 2d | vconcat| edebug-|
|00005190| 63 6c 65 61 72 2d 66 72 | 65 71 75 65 6e 63 79 2d |clear-fr|equency-|
|000051a0| 63 6f 75 6e 74 20 65 64 | 65 62 75 67 2d 63 6c 65 |count ed|ebug-cle|
|000051b0| 61 72 2d 63 6f 76 65 72 | 61 67 65 20 70 75 74 20 |ar-cover|age put |
|000051c0| 65 64 65 62 75 67 5d 20 | 37 5d 20 65 64 65 62 75 |edebug] |7] edebu|
|000051d0| 67 2d 63 6c 65 61 72 2d | 66 72 65 71 75 65 6e 63 |g-clear-|frequenc|
|000051e0| 79 2d 63 6f 75 6e 74 20 | 23 5b 28 6e 61 6d 65 29 |y-count |#[(name)|
|000051f0| 20 22 c0 09 c2 c3 0c 47 | c5 5c 22 23 87 22 20 5b | ".....G|.\"#." [|
|00005200| 70 75 74 20 6e 61 6d 65 | 20 65 64 65 62 75 67 2d |put name| edebug-|
|00005210| 66 72 65 71 2d 63 6f 75 | 6e 74 20 6d 61 6b 65 2d |freq-cou|nt make-|
|00005220| 76 65 63 74 6f 72 20 65 | 64 65 62 75 67 2d 6f 66 |vector e|debug-of|
|00005230| 66 73 65 74 2d 6c 69 73 | 74 20 30 5d 20 36 5d 20 |fset-lis|t 0] 6] |
|00005240| 65 64 65 62 75 67 2d 63 | 6c 65 61 72 2d 63 6f 76 |edebug-c|lear-cov|
|00005250| 65 72 61 67 65 20 23 5b | 28 6e 61 6d 65 29 20 22 |erage #[|(name) "|
|00005260| c0 09 c2 c3 0c 47 c5 5c | 22 23 87 22 20 5b 70 75 |.....G.\|"#." [pu|
|00005270| 74 20 6e 61 6d 65 20 65 | 64 65 62 75 67 2d 63 6f |t name e|debug-co|
|00005280| 76 65 72 61 67 65 20 6d | 61 6b 65 2d 76 65 63 74 |verage m|ake-vect|
|00005290| 6f 72 20 65 64 65 62 75 | 67 2d 6f 66 66 73 65 74 |or edebu|g-offset|
|000052a0| 2d 6c 69 73 74 20 75 6e | 6b 6e 6f 77 6e 5d 20 36 |-list un|known] 6|
|000052b0| 5d 20 65 64 65 62 75 67 | 2d 69 6e 63 2d 6f 66 66 |] edebug|-inc-off|
|000052c0| 73 65 74 20 23 5b 28 6f | 66 66 73 65 74 29 20 22 |set #[(o|ffset) "|
|000052d0| 08 09 5c 6e 5a 0b 42 13 | 08 54 10 87 22 20 5b 65 |..\nZ.B.|.T.." [e|
|000052e0| 64 65 62 75 67 2d 6f 66 | 66 73 65 74 2d 69 6e 64 |debug-of|fset-ind|
|000052f0| 65 78 20 6f 66 66 73 65 | 74 20 65 64 65 62 75 67 |ex offse|t edebug|
|00005300| 2d 66 6f 72 6d 2d 62 65 | 67 69 6e 2d 6d 61 72 6b |-form-be|gin-mark|
|00005310| 65 72 20 65 64 65 62 75 | 67 2d 6f 66 66 73 65 74 |er edebu|g-offset|
|00005320| 2d 6c 69 73 74 5d 20 33 | 5d 20 65 64 65 62 75 67 |-list] 3|] edebug|
|00005330| 2d 6d 61 6b 65 2d 62 65 | 66 6f 72 65 2d 61 6e 64 |-make-be|fore-and|
|00005340| 2d 61 66 74 65 72 2d 66 | 6f 72 6d 20 23 5b 28 62 |-after-f|orm #[(b|
|00005350| 65 66 6f 72 65 2d 69 6e | 64 65 78 20 66 6f 72 6d |efore-in|dex form|
|00005360| 20 61 66 74 65 72 2d 69 | 6e 64 65 78 29 20 22 c0 | after-i|ndex) ".|
|00005370| c1 5c 6e 44 0b 0c 46 87 | 22 20 5b 65 64 65 62 75 |.\nD..F.|" [edebu|
|00005380| 67 2d 61 66 74 65 72 20 | 65 64 65 62 75 67 2d 62 |g-after |edebug-b|
|00005390| 65 66 6f 72 65 20 62 65 | 66 6f 72 65 2d 69 6e 64 |efore be|fore-ind|
|000053a0| 65 78 20 61 66 74 65 72 | 2d 69 6e 64 65 78 20 66 |ex after|-index f|
|000053b0| 6f 72 6d 5d 20 34 5d 20 | 65 64 65 62 75 67 2d 6d |orm] 4] |edebug-m|
|000053c0| 61 6b 65 2d 61 66 74 65 | 72 2d 66 6f 72 6d 20 23 |ake-afte|r-form #|
|000053d0| 5b 28 66 6f 72 6d 20 61 | 66 74 65 72 2d 69 6e 64 |[(form a|fter-ind|
|000053e0| 65 78 29 20 22 c0 c1 5c | 6e 0b 46 87 22 20 5b 65 |ex) "..\|n.F." [e|
|000053f0| 64 65 62 75 67 2d 61 66 | 74 65 72 20 30 20 61 66 |debug-af|ter 0 af|
|00005400| 74 65 72 2d 69 6e 64 65 | 78 20 66 6f 72 6d 5d 20 |ter-inde|x form] |
|00005410| 34 5d 5d 20 32 29 0a 28 | 66 73 65 74 20 27 65 64 |4]] 2).(|fset 'ed|
|00005420| 65 62 75 67 2d 66 6f 72 | 6d 20 23 5b 28 63 75 72 |ebug-for|m #[(cur|
|00005430| 73 6f 72 29 20 22 c0 09 | c2 5c 22 1b c4 09 21 1d |sor) "..|.\"...!.|
|00005440| 0b 3a ab cf 0b 40 c6 3d | ab 83 0b aa f2 0b 40 89 |.:...@.=|......@.|
|00005450| 1e 07 39 ad 84 c8 0e 07 | 21 1e 09 ca 0b 0d 5c 22 |..9.....|!.....\"|
|00005460| 1e 0b 0e 09 3a ab 9a 0e | 09 40 cc 3d ab 93 cd 0e |....:...|.@.=....|
|00005470| 0b 0d 40 ce 09 21 cf 0e | 07 21 0e 09 41 42 24 aa |..@..!..|.!..AB$.|
|00005480| 90 d0 d1 0d 40 21 d2 0e | 0b 21 d1 d3 0e 0b 21 21 |....@!..|.!....!!|
|00005490| 23 2b aa ac 0b 39 ab a7 | 0b d4 3e ac 85 d5 0b 21 |#+...9..|..>....!|
|000054a0| ab 83 0b aa 9b 0e 16 ab | 8d d0 d1 0d 40 21 0b d1 |........|....@!..|
|000054b0| 0d 41 21 23 aa 8a d7 0b | d1 0d 41 21 5c 22 aa 81 |.A!#....|..A!\"..|
|000054c0| 0b d8 09 21 88 2a 87 22 | 20 5b 65 64 65 62 75 67 |...!.*."| [edebug|
|000054d0| 2d 74 6f 70 2d 65 6c 65 | 6d 65 6e 74 2d 72 65 71 |-top-ele|ment-req|
|000054e0| 75 69 72 65 64 20 63 75 | 72 73 6f 72 20 22 45 78 |uired cu|rsor "Ex|
|000054f0| 70 65 63 74 65 64 20 66 | 6f 72 6d 22 20 66 6f 72 |pected f|orm" for|
|00005500| 6d 20 65 64 65 62 75 67 | 2d 74 6f 70 2d 6f 66 66 |m edebug|-top-off|
|00005510| 73 65 74 20 6f 66 66 73 | 65 74 20 71 75 6f 74 65 |set offs|et quote|
|00005520| 20 68 65 61 64 20 67 65 | 74 2d 65 64 65 62 75 67 | head ge|t-edebug|
|00005530| 2d 73 70 65 63 20 73 70 | 65 63 20 65 64 65 62 75 |-spec sp|ec edebu|
|00005540| 67 2d 6e 65 77 2d 63 75 | 72 73 6f 72 20 6e 65 77 |g-new-cu|rsor new|
|00005550| 2d 63 75 72 73 6f 72 20 | 26 64 65 66 69 6e 65 20 |-cursor |&define |
|00005560| 65 64 65 62 75 67 2d 64 | 65 66 69 6e 69 6e 67 2d |edebug-d|efining-|
|00005570| 66 6f 72 6d 20 65 64 65 | 62 75 67 2d 61 66 74 65 |form ede|bug-afte|
|00005580| 72 2d 6f 66 66 73 65 74 | 20 73 79 6d 62 6f 6c 2d |r-offset| symbol-|
|00005590| 6e 61 6d 65 20 65 64 65 | 62 75 67 2d 6d 61 6b 65 |name ede|bug-make|
|000055a0| 2d 62 65 66 6f 72 65 2d | 61 6e 64 2d 61 66 74 65 |-before-|and-afte|
|000055b0| 72 2d 66 6f 72 6d 20 65 | 64 65 62 75 67 2d 69 6e |r-form e|debug-in|
|000055c0| 63 2d 6f 66 66 73 65 74 | 20 65 64 65 62 75 67 2d |c-offset| edebug-|
|000055d0| 6c 69 73 74 2d 66 6f 72 | 6d 20 65 64 65 62 75 67 |list-for|m edebug|
|000055e0| 2d 63 75 72 73 6f 72 2d | 6f 66 66 73 65 74 73 20 |-cursor-|offsets |
|000055f0| 28 74 20 6e 69 6c 29 20 | 6b 65 79 77 6f 72 64 70 |(t nil) |keywordp|
|00005600| 20 65 64 65 62 75 67 2d | 73 74 6f 70 2d 62 65 66 | edebug-|stop-bef|
|00005610| 6f 72 65 2d 73 79 6d 62 | 6f 6c 73 20 65 64 65 62 |ore-symb|ols edeb|
|00005620| 75 67 2d 6d 61 6b 65 2d | 61 66 74 65 72 2d 66 6f |ug-make-|after-fo|
|00005630| 72 6d 20 65 64 65 62 75 | 67 2d 6d 6f 76 65 2d 63 |rm edebu|g-move-c|
|00005640| 75 72 73 6f 72 5d 20 37 | 20 22 5c 0a 52 65 74 75 |ursor] 7| "\.Retu|
|00005650| 72 6e 20 74 68 65 20 69 | 6e 73 74 72 75 6d 65 6e |rn the i|nstrumen|
|00005660| 74 65 64 20 66 6f 72 6d | 20 66 6f 72 20 74 68 65 |ted form| for the|
|00005670| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 66 6f 72 6d 2e | followi|ng form.|
|00005680| 20 20 0a 41 64 64 20 74 | 68 65 20 70 6f 69 6e 74 | .Add t|he point|
|00005690| 20 6f 66 66 73 65 74 73 | 20 74 6f 20 74 68 65 20 | offsets| to the |
|000056a0| 65 64 65 62 75 67 2d 6f | 66 66 73 65 74 2d 6c 69 |edebug-o|ffset-li|
|000056b0| 73 74 20 66 6f 72 20 74 | 68 65 20 66 6f 72 6d 2e |st for t|he form.|
|000056c0| 22 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |"]).(byt|e-code "|
|000056d0| c0 c1 4d 88 c2 c3 4d 88 | c4 c5 4d 88 c6 c7 4d 88 |..M...M.|..M...M.|
|000056e0| c8 c9 21 ac 83 ca 16 09 | c8 cb 21 ac 83 ca 16 0b |..!.....|..!.....|
|000056f0| c8 cc 21 ac 83 ca 16 0c | c8 cd 21 ac 83 ce 16 0d |..!.....|..!.....|
|00005700| cf 16 10 ca 87 22 20 5b | 65 64 65 62 75 67 2d 6c |....." [|edebug-l|
|00005710| 69 73 74 2d 66 6f 72 6d | 20 23 5b 28 63 75 72 73 |ist-form| #[(curs|
|00005720| 6f 72 29 20 22 c0 09 c2 | 5c 22 c3 c4 89 1d 1e 06 |or) "...|\"......|
|00005730| 1e 07 1e 08 c9 09 ca 09 | 21 cb 09 21 41 23 88 0e |........|!..!A#..|
|00005740| 08 ac 83 c4 aa b9 0e 08 | 39 ab a6 0e 08 ac 85 cc |........|9.......|
|00005750| cd 21 aa ab 0e 08 ce 3d | ab 8b cf 16 10 d1 09 21 |.!.....=|.......!|
|00005760| 88 d2 20 aa 9a 0e 08 d3 | 0e 08 d1 09 21 5c 22 42 |.. .....|....!\"B|
|00005770| aa 8e 0e 08 3a ab 86 d4 | 09 d5 5c 22 aa 83 cc d6 |....:...|..\"....|
|00005780| 21 2c 87 22 20 5b 65 64 | 65 62 75 67 2d 74 6f 70 |!,." [ed|ebug-top|
|00005790| 2d 65 6c 65 6d 65 6e 74 | 2d 72 65 71 75 69 72 65 |-element|-require|
|000057a0| 64 20 63 75 72 73 6f 72 | 20 22 45 78 70 65 63 74 |d cursor| "Expect|
|000057b0| 65 64 20 65 6c 65 6d 65 | 6e 74 73 22 20 74 20 6e |ed eleme|nts" t n|
|000057c0| 69 6c 20 65 64 65 62 75 | 67 2d 26 72 65 73 74 20 |il edebu|g-&rest |
|000057d0| 65 64 65 62 75 67 2d 26 | 6f 70 74 69 6f 6e 61 6c |edebug-&|optional|
|000057e0| 20 65 64 65 62 75 67 2d | 66 65 6e 63 65 20 68 65 | edebug-|fence he|
|000057f0| 61 64 20 65 64 65 62 75 | 67 2d 73 65 74 2d 63 75 |ad edebu|g-set-cu|
|00005800| 72 73 6f 72 20 65 64 65 | 62 75 67 2d 63 75 72 73 |rsor ede|bug-curs|
|00005810| 6f 72 2d 6f 62 6a 65 63 | 74 20 65 64 65 62 75 67 |or-objec|t edebug|
|00005820| 2d 63 75 72 73 6f 72 2d | 6f 66 66 73 65 74 73 20 |-cursor-|offsets |
|00005830| 65 64 65 62 75 67 2d 73 | 79 6e 74 61 78 2d 65 72 |edebug-s|yntax-er|
|00005840| 72 6f 72 20 22 6e 69 6c | 20 68 65 61 64 22 20 69 |ror "nil| head" i|
|00005850| 6e 74 65 72 61 63 74 69 | 76 65 2d 70 20 63 68 65 |nteracti|ve-p che|
|00005860| 63 6b 2d 69 74 20 65 64 | 65 62 75 67 2d 64 65 66 |ck-it ed|ebug-def|
|00005870| 2d 69 6e 74 65 72 61 63 | 74 69 76 65 20 65 64 65 |-interac|tive ede|
|00005880| 62 75 67 2d 6d 6f 76 65 | 2d 63 75 72 73 6f 72 20 |bug-move|-cursor |
|00005890| 65 64 65 62 75 67 2d 69 | 6e 74 65 72 61 63 74 69 |edebug-i|nteracti|
|000058a0| 76 65 2d 70 2d 6e 61 6d | 65 20 65 64 65 62 75 67 |ve-p-nam|e edebug|
|000058b0| 2d 6c 69 73 74 2d 66 6f | 72 6d 2d 61 72 67 73 20 |-list-fo|rm-args |
|000058c0| 65 64 65 62 75 67 2d 6d | 61 74 63 68 2d 73 70 65 |edebug-m|atch-spe|
|000058d0| 63 73 20 28 6c 61 6d 62 | 64 61 2d 65 78 70 72 20 |cs (lamb|da-expr |
|000058e0| 62 6f 64 79 29 20 22 48 | 65 61 64 20 6f 66 20 6c |body) "H|ead of l|
|000058f0| 69 73 74 20 66 6f 72 6d | 20 6d 75 73 74 20 62 65 |ist form| must be|
|00005900| 20 61 20 73 79 6d 62 6f | 6c 20 6f 72 20 6c 61 6d | a symbo|l or lam|
|00005910| 62 64 61 20 65 78 70 72 | 65 73 73 69 6f 6e 2e 22 |bda expr|ession."|
|00005920| 5d 20 35 5d 20 65 64 65 | 62 75 67 2d 66 6f 72 6d |] 5] ede|bug-form|
|00005930| 73 20 23 5b 28 63 75 72 | 73 6f 72 29 20 22 c0 09 |s #[(cur|sor) "..|
|00005940| 21 87 22 20 5b 65 64 65 | 62 75 67 2d 6d 61 74 63 |!." [ede|bug-matc|
|00005950| 68 2d 62 6f 64 79 20 63 | 75 72 73 6f 72 5d 20 32 |h-body c|ursor] 2|
|00005960| 5d 20 65 64 65 62 75 67 | 2d 73 65 78 70 73 20 23 |] edebug|-sexps #|
|00005970| 5b 28 63 75 72 73 6f 72 | 29 20 22 c0 09 c2 5c 22 |[(cursor|) "...\"|
|00005980| 87 22 20 5b 65 64 65 62 | 75 67 2d 6d 61 74 63 68 |." [edeb|ug-match|
|00005990| 20 63 75 72 73 6f 72 20 | 28 26 72 65 73 74 20 73 | cursor |(&rest s|
|000059a0| 65 78 70 29 5d 20 33 5d | 20 65 64 65 62 75 67 2d |exp)] 3]| edebug-|
|000059b0| 6c 69 73 74 2d 66 6f 72 | 6d 2d 61 72 67 73 20 23 |list-for|m-args #|
|000059c0| 5b 28 68 65 61 64 20 63 | 75 72 73 6f 72 29 20 22 |[(head c|ursor) "|
|000059d0| c0 09 21 5c 6e c3 5c 5c | 1a 89 1c ab d2 0c 3a ab |..!\n.\\|......:.|
|000059e0| ae c5 89 89 89 1e 06 1e | 07 1e 08 1e 09 ca 0e 0b |........|........|
|000059f0| 0c 5c 22 cc 0e 0b 21 ac | 94 0e 07 ab 8a cd ce 0e |.\"...!.|........|
|00005a00| 0b 0e 07 23 88 aa 86 ce | 0e 0b cf 5c 22 88 2c aa |...#....|...\".,.|
|00005a10| b9 0c d0 3d ab 86 d1 0e | 0b 21 aa ae 0c d2 3d ab |...=....|.!....=.|
|00005a20| 86 d3 0e 0b 21 aa a3 0c | 39 ad 9f 0c 0e 0b 21 aa |....!...|9.....!.|
|00005a30| 99 d4 09 21 ab 90 0e 15 | ab 86 d1 0e 0b 21 aa 8a |...!....|.....!..|
|00005a40| d3 0e 0b 21 aa 84 d1 0e | 0b 21 2a 87 22 20 5b 67 |...!....|.!*." [g|
|00005a50| 65 74 2d 65 64 65 62 75 | 67 2d 73 70 65 63 20 68 |et-edebu|g-spec h|
|00005a60| 65 61 64 20 6d 61 78 2d | 6c 69 73 70 2d 65 76 61 |ead max-|lisp-eva|
|00005a70| 6c 2d 64 65 70 74 68 20 | 31 32 20 73 70 65 63 20 |l-depth |12 spec |
|00005a80| 6e 69 6c 20 65 64 65 62 | 75 67 2d 65 72 72 6f 72 |nil edeb|ug-error|
|00005a90| 2d 70 6f 69 6e 74 20 65 | 64 65 62 75 67 2d 62 65 |-point e|debug-be|
|00005aa0| 73 74 2d 65 72 72 6f 72 | 20 65 64 65 62 75 67 2d |st-error| edebug-|
|00005ab0| 26 72 65 73 74 20 65 64 | 65 62 75 67 2d 26 6f 70 |&rest ed|ebug-&op|
|00005ac0| 74 69 6f 6e 61 6c 20 65 | 64 65 62 75 67 2d 6d 61 |tional e|debug-ma|
|00005ad0| 74 63 68 2d 73 70 65 63 | 73 20 63 75 72 73 6f 72 |tch-spec|s cursor|
|00005ae0| 20 65 64 65 62 75 67 2d | 65 6d 70 74 79 2d 63 75 | edebug-|empty-cu|
|00005af0| 72 73 6f 72 20 61 70 70 | 6c 79 20 65 64 65 62 75 |rsor app|ly edebu|
|00005b00| 67 2d 6e 6f 2d 6d 61 74 | 63 68 20 22 55 6e 6d 61 |g-no-mat|ch "Unma|
|00005b10| 74 63 68 65 64 20 61 72 | 67 75 6d 65 6e 74 28 73 |tched ar|gument(s|
|00005b20| 29 2e 22 20 74 20 65 64 | 65 62 75 67 2d 6d 61 74 |)." t ed|ebug-mat|
|00005b30| 63 68 2d 62 6f 64 79 20 | 30 20 65 64 65 62 75 67 |ch-body |0 edebug|
|00005b40| 2d 73 65 78 70 73 20 65 | 64 65 62 75 67 2d 6d 61 |-sexps e|debug-ma|
|00005b50| 63 72 6f 70 20 65 64 65 | 62 75 67 2d 65 76 61 6c |crop ede|bug-eval|
|00005b60| 2d 6d 61 63 72 6f 2d 61 | 72 67 73 5d 20 36 5d 20 |-macro-a|rgs] 6] |
|00005b70| 62 6f 75 6e 64 70 20 65 | 64 65 62 75 67 2d 66 65 |boundp e|debug-fe|
|00005b80| 6e 63 65 20 6e 69 6c 20 | 65 64 65 62 75 67 2d 62 |nce nil |edebug-b|
|00005b90| 65 73 74 2d 65 72 72 6f | 72 20 65 64 65 62 75 67 |est-erro|r edebug|
|00005ba0| 2d 61 66 74 65 72 2d 64 | 6f 74 74 65 64 2d 73 70 |-after-d|otted-sp|
|00005bb0| 65 63 20 65 64 65 62 75 | 67 2d 64 65 70 74 68 20 |ec edebu|g-depth |
|00005bc0| 30 20 31 35 30 20 65 64 | 65 62 75 67 2d 6d 61 78 |0 150 ed|ebug-max|
|00005bd0| 2d 64 65 70 74 68 5d 20 | 32 29 0a 28 66 73 65 74 |-depth] |2).(fset|
|00005be0| 20 27 65 64 65 62 75 67 | 2d 6d 61 74 63 68 20 23 | 'edebug|-match #|
|00005bf0| 5b 28 63 75 72 73 6f 72 | 20 73 70 65 63 73 29 20 |[(cursor| specs) |
|00005c00| 22 c0 89 89 89 09 19 1a | 1b 1c 1d c6 0e 07 0e 08 |".......|........|
|00005c10| 5c 22 2d 87 22 20 5b 6e | 69 6c 20 65 64 65 62 75 |\"-." [n|il edebu|
|00005c20| 67 2d 66 65 6e 63 65 20 | 65 64 65 62 75 67 2d 65 |g-fence |edebug-e|
|00005c30| 72 72 6f 72 2d 70 6f 69 | 6e 74 20 65 64 65 62 75 |rror-poi|nt edebu|
|00005c40| 67 2d 62 65 73 74 2d 65 | 72 72 6f 72 20 65 64 65 |g-best-e|rror ede|
|00005c50| 62 75 67 2d 26 72 65 73 | 74 20 65 64 65 62 75 67 |bug-&res|t edebug|
|00005c60| 2d 26 6f 70 74 69 6f 6e | 61 6c 20 65 64 65 62 75 |-&option|al edebu|
|00005c70| 67 2d 6d 61 74 63 68 2d | 73 70 65 63 73 20 63 75 |g-match-|specs cu|
|00005c80| 72 73 6f 72 20 73 70 65 | 63 73 5d 20 35 20 22 5c |rsor spe|cs] 5 "\|
|00005c90| 0a 54 6f 70 20 6c 65 76 | 65 6c 20 73 70 65 63 20 |.Top lev|el spec |
|00005ca0| 6d 61 74 63 68 69 6e 67 | 20 66 75 6e 63 74 69 6f |matching| functio|
|00005cb0| 6e 2e 22 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |n."]).(b|yte-code|
|00005cc0| 20 22 c0 c1 4d 88 c2 c3 | 4d 88 c4 c5 4d 88 c6 c7 | "..M...|M...M...|
|00005cd0| 4d 88 c8 c9 4d 88 ca cb | cc 5c 22 88 cd ce 4d 88 |M...M...|.\"...M.|
|00005ce0| cf d0 4d 88 d1 d2 4d 88 | d3 d4 4d 88 d5 d6 4d 88 |..M...M.|..M...M.|
|00005cf0| d7 d8 d9 da 23 88 da db | 4d 88 dc dd 4d 88 de df |....#...|M...M...|
|00005d00| 4d 88 e0 e1 4d 88 e2 e3 | 4d 88 e4 e5 4d 88 e6 e7 |M...M...|M...M...|
|00005d10| 4d 88 e8 e9 4d 88 ea eb | 4d 88 ec ed 4d 88 ee ef |M...M...|M...M...|
|00005d20| 4d 88 f0 ee 4d 88 f1 f2 | 4d 88 f3 f4 4d 88 f5 f6 |M...M...|M...M...|
|00005d30| 4d 88 f7 f8 4d 88 f9 fa | 4d 88 fb fc 4d 88 fd fe |M...M...|M...M...|
|00005d40| 4d 87 22 20 5b 65 64 65 | 62 75 67 2d 6d 61 74 63 |M." [ede|bug-matc|
|00005d50| 68 2d 73 70 65 63 73 20 | 23 5b 28 63 75 72 73 6f |h-specs |#[(curso|
|00005d60| 72 20 73 70 65 63 73 29 | 20 22 08 85 87 00 09 c2 |r specs)| "......|
|00005d70| 5c 5c 0b c4 5c 5c 0d 0e | 06 56 ab 85 c7 c8 21 aa |\\..\\..|.V....!.|
|00005d80| 82 0d 54 08 3a ab 84 08 | 40 aa 81 08 c9 ca 0e 0b |..T.:...|@.......|
|00005d90| 21 cc 0e 0b 21 c9 0e 0d | c9 89 1e 0e 1e 0f 1e 0d |!...!...|........|
|00005da0| 1e 10 1e 11 1e 12 1e 13 | 1e 14 1d 1b 19 0e 12 3c |........|.......<|
|00005db0| 3f 16 10 0e 0d ae 88 08 | 3a 3f ad 83 0e 10 3f 16 |?.......|:?....?.|
|00005dc0| 0d 0e 14 39 ad 86 d5 0e | 14 21 d6 48 16 13 ce d7 |...9....|.!.H....|
|00005dd0| 8d 89 16 0e ab 99 0e 18 | ab 8c d9 0e 0b 0e 12 0e |........|........|
|00005de0| 11 23 88 c9 aa 8b da db | 0e 0b 0e 0e 23 aa 82 0e |.#......|....#...|
|00005df0| 0f 2e 0b 87 22 20 5b 73 | 70 65 63 73 20 6d 61 78 |...." [s|pecs max|
|00005e00| 2d 6c 69 73 70 2d 65 76 | 61 6c 2d 64 65 70 74 68 |-lisp-ev|al-depth|
|00005e10| 20 32 30 20 6d 61 78 2d | 73 70 65 63 70 64 6c 2d | 20 max-|specpdl-|
|00005e20| 73 69 7a 65 20 32 35 20 | 65 64 65 62 75 67 2d 64 |size 25 |edebug-d|
|00005e30| 65 70 74 68 20 65 64 65 | 62 75 67 2d 6d 61 78 2d |epth ede|bug-max-|
|00005e40| 64 65 70 74 68 20 65 72 | 72 6f 72 20 22 74 6f 6f |depth er|ror "too|
|00005e50| 20 64 65 65 70 20 2d 20 | 70 65 72 68 61 70 73 20 | deep - |perhaps |
|00005e60| 69 6e 66 69 6e 69 74 65 | 20 6c 6f 6f 70 20 69 6e |infinite| loop in|
|00005e70| 20 73 70 65 63 3f 22 20 | 6e 69 6c 20 65 64 65 62 | spec?" |nil edeb|
|00005e80| 75 67 2d 63 75 72 73 6f | 72 2d 6f 62 6a 65 63 74 |ug-curso|r-object|
|00005e90| 20 63 75 72 73 6f 72 20 | 65 64 65 62 75 67 2d 63 | cursor |edebug-c|
|00005ea0| 75 72 73 6f 72 2d 6f 66 | 66 73 65 74 73 20 65 64 |ursor-of|fsets ed|
|00005eb0| 65 62 75 67 2d 61 66 74 | 65 72 2d 64 6f 74 74 65 |ebug-aft|er-dotte|
|00005ec0| 64 2d 73 70 65 63 20 6e | 6f 2d 6d 61 74 63 68 20 |d-spec n|o-match |
|00005ed0| 72 65 73 75 6c 74 20 64 | 6f 74 74 65 64 20 74 68 |result d|otted th|
|00005ee0| 69 73 2d 6f 66 66 73 65 | 74 20 74 68 69 73 2d 66 |is-offse|t this-f|
|00005ef0| 6f 72 6d 20 66 69 72 73 | 74 2d 63 68 61 72 20 73 |orm firs|t-char s|
|00005f00| 70 65 63 20 73 79 6d 62 | 6f 6c 2d 6e 61 6d 65 20 |pec symb|ol-name |
|00005f10| 30 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 c1 |0 (byte-|code "..|
|00005f20| 3d ab 9f c2 0b 21 89 1c | 0d 0e 06 41 5c 22 1e 07 |=....!..|...A\"..|
|00005f30| 0e 08 ab 8a 0e 07 c9 0d | 0e 08 5c 22 a4 aa 82 0e |........|..\"....|
|00005f40| 07 2a aa d1 08 ca 3d ab | 93 c2 0b 21 0d 0e 06 41 |.*....=.|...!...A|
|00005f50| 40 5c 22 c9 0d 0e 06 41 | 41 5c 22 a4 aa b9 0e 0b |@\"....A|A\".....|
|00005f60| ab 90 cc 0d 0e 0d 43 0e | 0e 23 88 cf 0d 0b 5c 22 |......C.|.#....\"|
|00005f70| 40 aa a5 cf 0d 0b 5c 22 | 0e 06 3a ab 85 0e 06 41 |@.....\"|..:....A|
|00005f80| ae 82 0e 08 1e 10 1e 07 | 0e 10 ab 8a 0e 07 c9 0d |........|........|
|00005f90| 0e 10 5c 22 a4 aa 82 0e | 07 2a 16 11 d2 87 22 20 |..\"....|.*...." |
|00005fa0| 5b 66 69 72 73 74 2d 63 | 68 61 72 20 33 38 20 67 |[first-c|har 38 g|
|00005fb0| 65 74 2d 65 64 65 62 75 | 67 2d 73 70 65 63 20 73 |et-edebu|g-spec s|
|00005fc0| 70 65 63 20 66 75 6e 63 | 20 63 75 72 73 6f 72 20 |pec func| cursor |
|00005fd0| 73 70 65 63 73 20 74 65 | 6d 70 20 65 64 65 62 75 |specs te|mp edebu|
|00005fe0| 67 2d 26 72 65 73 74 20 | 65 64 65 62 75 67 2d 6d |g-&rest |edebug-m|
|00005ff0| 61 74 63 68 2d 73 70 65 | 63 73 20 35 38 20 64 6f |atch-spe|cs 58 do|
|00006000| 74 74 65 64 20 65 64 65 | 62 75 67 2d 73 65 74 2d |tted ede|bug-set-|
|00006010| 63 75 72 73 6f 72 20 74 | 68 69 73 2d 66 6f 72 6d |cursor t|his-form|
|00006020| 20 74 68 69 73 2d 6f 66 | 66 73 65 74 20 65 64 65 | this-of|fset ede|
|00006030| 62 75 67 2d 6d 61 74 63 | 68 2d 6f 6e 65 2d 73 70 |bug-matc|h-one-sp|
|00006040| 65 63 20 72 65 73 74 20 | 72 65 73 75 6c 74 20 6e |ec rest |result n|
|00006050| 69 6c 5d 20 35 29 20 65 | 64 65 62 75 67 2d 26 6f |il] 5) e|debug-&o|
|00006060| 70 74 69 6f 6e 61 6c 20 | 65 64 65 62 75 67 2d 73 |ptional |edebug-s|
|00006070| 65 74 2d 63 75 72 73 6f | 72 20 61 70 70 6c 79 20 |et-curso|r apply |
|00006080| 65 64 65 62 75 67 2d 6e | 6f 2d 6d 61 74 63 68 5d |edebug-n|o-match]|
|00006090| 20 31 32 5d 20 65 64 65 | 62 75 67 2d 6d 61 74 63 | 12] ede|bug-matc|
|000060a0| 68 2d 6f 6e 65 2d 73 70 | 65 63 20 23 5b 28 63 75 |h-one-sp|ec #[(cu|
|000060b0| 72 73 6f 72 20 73 70 65 | 63 29 20 22 08 39 ab 85 |rsor spe|c) ".9..|
|000060c0| c1 5c 6e 08 5c 22 87 c3 | 08 21 ab 88 c4 5c 6e c5 |.\n.\"..|.!...\n.|
|000060d0| 08 c6 5c 22 5c 22 87 08 | 3b ab 85 c7 5c 6e 08 5c |..\"\"..|;...\n.\|
|000060e0| 22 87 08 3c ad 84 c8 5c | 6e 08 5c 22 87 22 20 5b |"..<...\|n.\"." [|
|000060f0| 73 70 65 63 20 65 64 65 | 62 75 67 2d 6d 61 74 63 |spec ede|bug-matc|
|00006100| 68 2d 73 79 6d 62 6f 6c | 20 63 75 72 73 6f 72 20 |h-symbol| cursor |
|00006110| 76 65 63 74 6f 72 70 20 | 65 64 65 62 75 67 2d 6d |vectorp |edebug-m|
|00006120| 61 74 63 68 20 61 70 70 | 65 6e 64 20 6e 69 6c 20 |atch app|end nil |
|00006130| 65 64 65 62 75 67 2d 6d | 61 74 63 68 2d 73 74 72 |edebug-m|atch-str|
|00006140| 69 6e 67 20 65 64 65 62 | 75 67 2d 6d 61 74 63 68 |ing edeb|ug-match|
|00006150| 2d 6c 69 73 74 5d 20 35 | 5d 20 65 64 65 62 75 67 |-list] 5|] edebug|
|00006160| 2d 6e 6f 2d 6d 61 74 63 | 68 20 23 5b 28 63 75 72 |-no-matc|h #[(cur|
|00006170| 73 6f 72 20 26 72 65 73 | 74 20 65 64 65 62 75 67 |sor &res|t edebug|
|00006180| 2d 61 72 67 73 29 20 22 | 08 ae 83 c1 5c 6e 21 10 |-args) "|....\n!.|
|00006190| 0b ae 81 0c 13 0d ab 8f | 0e 06 ac 8b 08 ab 83 08 |........|........|
|000061a0| 62 88 c7 c8 0c 5c 22 87 | c9 ca 0c 5c 22 87 22 20 |b....\".|...\"." |
|000061b0| 5b 65 64 65 62 75 67 2d | 65 72 72 6f 72 2d 70 6f |[edebug-|error-po|
|000061c0| 69 6e 74 20 65 64 65 62 | 75 67 2d 62 65 66 6f 72 |int edeb|ug-befor|
|000061d0| 65 2d 6f 66 66 73 65 74 | 20 63 75 72 73 6f 72 20 |e-offset| cursor |
|000061e0| 65 64 65 62 75 67 2d 62 | 65 73 74 2d 65 72 72 6f |edebug-b|est-erro|
|000061f0| 72 20 65 64 65 62 75 67 | 2d 61 72 67 73 20 65 64 |r edebug|-args ed|
|00006200| 65 62 75 67 2d 66 65 6e | 63 65 20 65 64 65 62 75 |ebug-fen|ce edebu|
|00006210| 67 2d 26 6f 70 74 69 6f | 6e 61 6c 20 61 70 70 6c |g-&optio|nal appl|
|00006220| 79 20 65 64 65 62 75 67 | 2d 73 79 6e 74 61 78 2d |y edebug|-syntax-|
|00006230| 65 72 72 6f 72 20 74 68 | 72 6f 77 20 6e 6f 2d 6d |error th|row no-m|
|00006240| 61 74 63 68 5d 20 33 5d | 20 65 64 65 62 75 67 2d |atch] 3]| edebug-|
|00006250| 62 65 66 6f 72 65 2d 6f | 66 66 73 65 74 20 23 5b |before-o|ffset #[|
|00006260| 28 63 75 72 73 6f 72 29 | 20 22 c0 09 21 89 1a 3a |(cursor)| "..!..:|
|00006270| ab 85 5c 6e 40 40 aa 82 | 5c 6e 53 29 87 22 20 5b |..\n@@..|\nS)." [|
|00006280| 65 64 65 62 75 67 2d 63 | 75 72 73 6f 72 2d 6f 66 |edebug-c|ursor-of|
|00006290| 66 73 65 74 73 20 63 75 | 72 73 6f 72 20 6f 66 66 |fsets cu|rsor off|
|000062a0| 73 65 74 5d 20 33 5d 20 | 65 64 65 62 75 67 2d 61 |set] 3] |edebug-a|
|000062b0| 66 74 65 72 2d 6f 66 66 | 73 65 74 20 23 5b 28 63 |fter-off|set #[(c|
|000062c0| 75 72 73 6f 72 29 20 22 | c0 09 21 89 1a 3a ab 86 |ursor) "|..!..:..|
|000062d0| 5c 6e 41 89 12 aa 77 5c | 6e 29 87 22 20 5b 65 64 |\nA...w\|n)." [ed|
|000062e0| 65 62 75 67 2d 74 6f 70 | 2d 6f 66 66 73 65 74 20 |ebug-top|-offset |
|000062f0| 63 75 72 73 6f 72 20 6f | 66 66 73 65 74 5d 20 33 |cursor o|ffset] 3|
|00006300| 5d 20 6d 61 70 63 61 72 | 20 23 5b 28 70 61 69 72 |] mapcar| #[(pair|
|00006310| 29 20 22 c0 09 40 c2 09 | 41 23 87 22 20 5b 70 75 |) "..@..|A#." [pu|
|00006320| 74 20 70 61 69 72 20 65 | 64 65 62 75 67 2d 66 6f |t pair e|debug-fo|
|00006330| 72 6d 2d 73 70 65 63 5d | 20 34 5d 20 28 28 26 6f |rm-spec]| 4] ((&o|
|00006340| 70 74 69 6f 6e 61 6c 20 | 2e 20 65 64 65 62 75 67 |ptional |. edebug|
|00006350| 2d 6d 61 74 63 68 2d 26 | 6f 70 74 69 6f 6e 61 6c |-match-&|optional|
|00006360| 29 20 28 26 72 65 73 74 | 20 2e 20 65 64 65 62 75 |) (&rest| . edebu|
|00006370| 67 2d 6d 61 74 63 68 2d | 26 72 65 73 74 29 20 28 |g-match-|&rest) (|
|00006380| 26 6f 72 20 2e 20 65 64 | 65 62 75 67 2d 6d 61 74 |&or . ed|ebug-mat|
|00006390| 63 68 2d 26 6f 72 29 20 | 28 26 6e 6f 74 20 2e 20 |ch-&or) |(¬ . |
|000063a0| 65 64 65 62 75 67 2d 6d | 61 74 63 68 2d 26 6e 6f |edebug-m|atch-&no|
|000063b0| 74 29 20 28 26 6b 65 79 | 20 2e 20 65 64 65 62 75 |t) (&key| . edebu|
|000063c0| 67 2d 6d 61 74 63 68 2d | 26 6b 65 79 29 20 28 73 |g-match-|&key) (s|
|000063d0| 65 78 70 20 2e 20 65 64 | 65 62 75 67 2d 6d 61 74 |exp . ed|ebug-mat|
|000063e0| 63 68 2d 73 65 78 70 29 | 20 28 66 6f 72 6d 20 2e |ch-sexp)| (form .|
|000063f0| 20 65 64 65 62 75 67 2d | 6d 61 74 63 68 2d 66 6f | edebug-|match-fo|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
